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EDITORIAL 


Chers amis, 

Ur2 Gernier éditorial 
est toujours quelque chose 
d'un peu triste, mais ma 
Participation à rPrPC m'a 
tant apporté <iz "LL y a 
rien à regretter. 

Je conseille vivement à 
tous ceux Gui voudraient 
Écrire des articles sur La 
HP-41 à les envoyer à PPC— 
Paris (BP 604, TSO28 Paris 
Cedex OZ). vous trouverez 
une Zettre de Frilerre David 
dans ces pages. 

Nous avons eu + or < 
Zettres ez Efaveur <'une 
distribution de HPF-28 Pour 
une POUI Ze HP=TZL;,; nous 
distribuerons donc des 28 
aux Reureux ChROISIS par Le 
Sort. Mais ce ne sera pas 
avant La rentrée, Guard Les 
comptes seront apureés. 


PEPC TT continuera à 
FOnCCTionner au Grand ralen—- 
GE Jusaqu"æ& Lin S7;: Te ré 
PondIrai au courrier. 


Apres - - - 


Amusez-vous bien 
Tean-Daniel Dodin 
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PPC PARIS 


Nous remercions Jean-Daniel de nous ouvrir ses colonnes. 


Tout d’abord, permettez-nous de nous présenter brièvement. PPC Paris est l’«autre» Club français 
d'utilisateurs de matériel HP. Comme PPC Toulouse, notre vocation est de rassembler les 
passionnés. Nous éditons un Journal régulier, mensuel (10 numéros par an) et sa qualité est une de 
nos principales préoccupations. D'autre part, nous organisons des réunions une fois par mois où les 
dialogues, rencontres et échanges peuvent se dérouler librement. 


Nous sommes sincèrement désolés que PPC Toulouse ait décidé de cesser ses activités. En effet, 
nous sommes convaincus que les Clubs d'utilisateurs de matériel HP constituent un lieu 
irremplaçable d'échanges. Malheureusement, beaucoup de Clubs de par le monde connaissent des 
difficultés, mais paradoxalement PPC Paris semble épargné. 


C’est pourquoi nous vous proposons de continuer avec nous ce que Jean-Daniel avait entrepris. 


PPC Paris est très connu pour ses travaux sur le HP-71. Les autres machines, en particulier le 
HP-41 et le HP-75, nous intéressent tout autant. En effet, nous leur consacrons des rubriques 
régulières. Il ne tient qu’à vous qu’elles soient plus étoffées : ce sont les membres du Club qui, par 
leurs articles, font le Journal. 


Nous nous intéressons également beaucoup aux nouvelles machines : après un banc d’essai de 20 
pages consacré au HP-28C comprenant entre autres une présentation par Sn créateur, Bill Wickes, 
PPC Paris est le seul Club à notre connaissance à avoir publié régulièrement des programmes pour 
cette nouvelle calculatrice. 


A présent, il ne va bientôt plus rester qu’un seul Club en France. Plus nous serons, plus forts nous 
serons. Ne restez pas isolés, rejoignez-nous ! IL suffit de nous envoyer vos nom et adresse ainsi que 
350 F (300 F si vous êtes étudiant). 


Pour PPC Paris, 
Pierre David, Président Adjoint 
PPC Paris 
B.P. 604 


75028 Paris Cedex 01 
France 
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ADRESSE : 
PPC-T, PPC-T, 77 rue du Cagire 31100 Toulouse France. 


EDITION 


Edité par le club de Programmation Personnelle sur Calculatrice de Tou- 
louse (PPC-T). 


REDACTION-ADMINISTRATION : 

Rédacteur en chef, directeur de la publication : Jean-Daniel Dodin 
secrétaire de rédaction : Eric Sergent 

administration : Jean-François Sibille. 


VENTE ET DISTRIBUTION : 
Réservé aux membres de PPC-T ayant cotisé pour cela. 
PARUTION 
irrégulière 
TARIFS (franco de port) 
Prix de vente au numéro : 30F (40F par avion). 


SOUMISSION D'ARTICLES 

Tous les membres du club sont invités à fournir des articles pour PPC-T. 
L'original à nous faire parvenir doit être tapé à la machine avec un ruban bien 
noir, recto seul, simple interligne, avec une largeur maximale de 15 cm. Un en- 
voi sur disquette IBM simple face, sur cassette HP82161À est recommandé. Les 
articles manuscrits sont acceptés s'ils sont calligraphiés sur papier blanc qua- 
driillé 5x5, sans sauter de ligne, recto seul, au stylo noir. Nous faire parvenir 
cartes ou cassettes (qui vous seront remplacés) pour les programmes, ainsi qu'un 
listing. Cet original sera utilisé tel que pour la publication, soignez-le ! 
Ceux qui prévoient à l'avance d'écrire des articles sont invités à nous demander 
un “Kit Auteur" qui leur donnera les modèles et toutes les instructions 
nécessaires. 

Les articles qui nous sont fournis sont certifiés originaux par leurs 
auteurs. Ni la revue, ni le club ni les auteurs ne sont responsables de l'usage 
qui sera fait des programmes qui sont uniquement fournis à titre documentaire, 
les utilisateurs sont seuls responsables de l'adaptation des programmes à leur 
propre usage. Ceci est spécialement vrai des programmes professionnels. Le fait, 
pour les auteurs, de nous envoyer un article ou un programme vaut autorisation 
de publication dans MICRO-REVUE ou dans toute autre publication du club, sans 
qu'aucune rémunération soit due à l'auteur de ce fait. 


{c) 1985 REPRODUCTION INTERDITE 
Les droits de reproduction des programmes et articles de PPC-T restent 
la propriété des auteurs et de la revue. En dérogation aux mentions ci-dessus, 
la reproduction des programmes est autorisée pour l'usage personnel des 
lecteurs, à l'exclusion de toute reproduction commerciale. 
Les auteurs délèguent à la revue le droit d'autoriser la reproduction 
des articles et programmes dans d'autres revues à caractère non commercial. 
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MICROCOLE 


UNE _ SYNTHESE EN MICROCODE 


Etant nouveau venu dans ce monde étrange des instructions microcodées 
j'ai essayé de rassembler le maximum de documents sur le sujet, afin de 
pouvoir me faire une idée précise des possibilités et des problèmes 
inhérents à ce mode de programmation. 

En négligeant l'aspect purement matériel (Hardware), il apparait 
d'emblée des difficultés de notation. En effet en raison du cheminement 
historique de la découverte du microcode, 3 types de mnemoniques dif- 
férentes sont utilisées: 


# Les mnémoniques PPC, découvertes par le pionnier Jim DeArras , 
aux balbutiements du MCODE. 


# Les mnémoniques HP, telles qu'elles apparaissent dans les list- 


ings source de la société. 


# Les mnémoniques du module ZENROM, dérivées de celles de HP,mais 
modifiées pour des raisons de facilité d'affichage et d'impres- 
sion sur la 41. 


Cet article est donc une sorte de mise au point sur le microcode en 
général, et sur les mnémoniques en particulier. Il se décompose de la 


faÇon suivante: 


Les registres de la HP-41 
- Les registres internes du HP 
- Les registres d'états 
Définition des champs 
- Champs registres 
- Champs pointeurs 
Les mnémoniques HP 
Les drapeaux 
- Les drapeaux internes 
- Les drapeaux utilisateur 
Correspondance des mnémoniques 





BOY Frédéric 
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LES REGISTRES 





DE _L2 H-?P 41: 


LES REGISTRES INTERNES DU yP: 





C_56 bits: 

C'est le registre principal. Toutes les opérations avec la RAM, 
ou, avec les autres registres du HP (sauf F), se font avec ce re- 
gistre. Les instructions arithmétiques, logiques et les comparai- 
sons , utilisent le registre C. 


A 56 bits: 

Le registre À ne peut intéragir qu'avec B et C. 11 supporte 
avec C des opérations diverses: incrémentations, effacements, 
décalages 


B 56 bits: 

B est un registre qui ne permet avec À que des opérations 
d'additions et de soustraction. 11 peut cependant être échangé 
avec À et C, effacé ou décalé. 


M et _ N 56 bits: 

Ces registres sont des registres secondaires, car le nombre 
d'opérations permises avec eux est réduit. Il ne peuvent trans- 
mettre où recevoir qu'individuellement des informations avec C. 
11 est impossible de réaliser directement des opérations entre M 
et N sans passer par C. Ils sont généralement utilisés pour le 
stockage des résultats intermédiaires. 


Pet Q 4 bit 

Ces 2 registres de 4 bits sont des pointeurs. Ils peuvent être 
initialisés avec une valeur comprise entre SG et 13 (décimal), on 
les utilise pour désigner des digits dans les registres À B C. Un 
seul de ces pointeurs est actif à un instant donné. 





PC_16 bits: 

C'est le compteur des programmes en MCODE, il contient l'adresse 
de l'instruction en cours d'exécution. Il peut être modifié par 
certaines instructions. 


SB_4x16 bits: 

c'est la pile d'adresse de retour pour les sous-programme en 
MCODE (SuBroutine stack).Elle possède 4 niveaux de stockage, 
et peut être initialisée automatiquement ou manuellement à partir 
de C, par certaines instructions. 


G_8 bits: 

Ce registre interagit avec l'octet de C, désigné par le pointeur 
actif, et les digits de poids forts suivants. Si le digit sélec- 
tionné est le 13 (décimal), alors un décalage logique se produit. 
G est généralement utilisé pour le stockage d'un octet. 


ST_8 bits: 
C'est le registre des drapeaux. Les bits © à 7 représentent les 
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drapeaux @ à 7 du système interne. L'interaction avec C s'effectue 
sur les 2 premiers digits (9-1) de C. ST est féquemment utilisé 
pour initialiser les drapeaux utilisateurs N° 48 à 55. 


XST 6 bits: 

Ce registre contient les drapeaux 8 à 13 du nP. On ne peut pas 
accéder d'un bloc à XST, seules des opérations bit à bit sont pos- 
sibles. Les drapeaux 9 à 13 sont référencés comme étant les d'état 


du système interne (Status Bits:SB). bits 


KEY 8 bit: 

C'est le registre de clavier, quand une touche est enfoncée, KEY 
contient un code l'identifiant: 

Exemple: C3=Flèche de correction 








TABLE DE_CORRESPONDANCE. CODE-TOUCHE 
































Registre des drapeau des périphériques. Ces drapeaux ne peuvent 
qu'étre testés par l'unité centräle, ils doivent être positionnés par 


les périphériques concernés. 


FI 14 bits: 





Registre du bipper. L'accés n'en est possible que via le registre 
ST (Référencé SB dans les instructions MCode).Quand on y place See 
le bip accoustique est silencieux, lorsque l'on charge F avec SFF , 
une impulsion est envoyée au Buzzer. 


CARRY 1 bit: 

C'est un bit servant, suivant les instructions qui le manipulent, 
à la fois de drapeau ou de retenue*prendre en compte. Il est mis à 
1, à chaque dépassement de capacité inférieur(UNDERFLOW) où supé- 
rieur(OVERFLOW). Après chaque positionnement du Carry, l'instruc- 
tion suivante le met à S, éventuellement après un test de sa valeur, 
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REGISTRES INTERNES 














INTERNAL. DATA 


















































TIMING AND CONTROL 


“DATA ADDRESS 
BUFFER 











TITTITITF 


KC KR X, X 8 82 PWo Va Ve LLD 
13-10 wt 199 oi «32 (4) 15) 16-17-81) 
EI POR SYNC DPWO 
un [ELE u2) 


SIGNIFICATION DES BROCHES DU yP: 


Les numéros entre parenthèses représentent les numéros de broches du uP 


K 
KR: 
POR: 





(Key Column) Numéro de colonne du clavier. 


(Key Row) Numéro de rang du clavier. 
Détection touche ON utilisée (mise en ou hors sommeil profond). 


X1,X2 Connexions du circuit oscillateur. 


a1 

o2 
SYNC 
PWO 
DPWO 


Signal d'horloge de lecture des données. 

Signal d'horloge d'envoi et de calcul des données. 
Synchronisation. 

Power On: Microprocesseur ac 

Commande de l'affichage (Dispi.. ‘ower On). 
Ccmmande du mode sommeil profond. 

Commande du mode HP actif. 

Commande du mode sommeil léger. 

Instructions et adresses ROM. 

Envoi du registre F vers le bipper(Flag Output). 
Détection de périphérique non synchronisé (Flag Input) 
Transfert de données et d'adresses RAM. 
Alimentation +6V régulés. 

Masse. 
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LES REGISTRES D'ETAT: 


XYZT et L: 

Ce sont les registres constituant la pile opérationnelle(RPN Stack). 
Ces différents registres de stockage de 56 bits, prennent des rôles 
particuliers, suivant l'utilisation que le système HP-41 en fait. 


MNOP: 

Les registres M N O et les 3 premiers octets de P, forment le regis- 
tre ALPHA. Les caractères étant stockés de M vers P, justifiés à 
droite: 

ABCDEFGHI > M:43 44 45 46 47 48 49 (en Hexa) 
N:90 09 ©9 GO GO 41 42 
Les octets 3 à 6 de P servent de brouillon alphanumérique secondaire. 


C'est le registre de brouillon alphanumérique principal. En particu- 
lier, les chaînes ALPHA lors de XEQO, sont écrites dans ce registre, de 
droite à gauche, les octets non utilisés étant à S29. 


PS 

Ce registre préserve, dans les digits 5 à 13, le BIT-MAP des as- 
signements des touches non shiftées. Les digits restants sont utilisés 
comme brouillon. 


Touche Digit 


= 
b 


Bit map - Assignations 


Sens 
des bits 
croissants 
(Pf vers PF) 
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a et b: 
Ce sont les pointeurs de retour des sous-programmes(SBR) et 


d'exécution de programmes utilisateurs. 
#Pointeur programme: (digits @ à 3 de b) 
>En ROM: Adressage de 64Ko (4 digits hexa). Le contenu du 
pointeur PRGM croît quand le N° des lignes augmente. 
>En_ RAM: Le digit de poids fort contient le numéro de 
l'octet, dans le registre identifié par les 3 digits de 
poids faible. Le contenu du pointeur décroît lorsque les 
ë N° de lignes augmentent. 


#Pile de retour SBR: (digits 4 à 13 de b + reg.a) 
Le 3° retour de SBR (sbr3) est partagé entre le registre 
b (LSB,poids faible) et le registre a (HSB,poids fort). 


Les retours de sous-programmes ont une forme pariculière, suivant 
que le retour, au PRGM en code RPN, s'effectue en ROM ou RAM. 
>En_ ROM: La structure est la même que pour le pointeur PRGM en ROM. 


>En RAM: Le digit de poids le plus fort est à @. 
Les 3 bits de poids fort du digit suivant donne le numéro 
de l'octet, et les 9 bits des digits de poids faibles, 


indiquent l'adresse du registre de retour. 


SG ooor rrrr rrrr 
000:0Octet r rrrr rrrr:Registre 


Gi: 
Ce registre contient les informations capitales de la HP-41: 
Adresse du .END. permanent, dig.2 1 @ 

Adresse du premier reg. de données(R@@), dig.5 4 3 
Constante de départ à chaud(WARM START), dig.8 7 6 

Adresse du premier reg. statistique(Stat REG), dig.13 12 11 


esse 


di 
C'est le registre contenant tous les drapeaux utilisateurs, en BIT- 


MAP.(bit 55-Flag @9 / bit @0-Flag 55) 


ei 
Registre d'assignement secondaire(touches shiftées),en BIT-MAP. 
(Digits 13 à 5). La correspondance bit/touche est la même que pour le 
registre EF 

Les digits 4-3, préservent lors des saisies de touches la constante 
PTEMP2 qui identifie le type de saisie en cours. En dehors de ces 
saisies les digits servent de brouillon. 

Les digits 2 à @, codent les numéros de lignes du PRGM utilisateur 
dans lequel se trouve le pointeur de b(ROM ou RAM peu importe). 
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REGISTRES D'ETAT 


NOM 


"REG 00 


ALP 




















à 





‘T697 


BOY Frédéric 
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DEFINITION DES CHAMPS : 


Les champs sont des postfixes qui précisent sur quelle partie d'un 
ou plusieurs registres doit s'effectuer une opération. 
Les noms des champs, sont définis comme indiqué ci-dessous dans les 
listings d'origine HP. Les noms entre parenthèses sont utilisés 
respectivement dans les listings PPC ou provenant du module ZENROM. 
— HP (PPC / ZENROM) 


CHAMPS REGISTRES : 

















nd . 


Tous les digits (ALL / ALL) : 
Champ non spécifié chez HP, désigne l'ensemble des 14 digits. 






S (MS / S): 
Désigne le digit de signe de la mantisse (digit 13). 


M (M / M): 
Désigne les 19 digits constituant la mantisse (digits 12 à 3). 


XS (XS / XS): 
Désigne le digit de signe de l'exposant (digit 2). 


X (S8&x / X): 
Désigne le signe de l'exposant et l'exposant lui même (dig.2 à @). 


Champ non spécifie ‘chez HP _et_ ZENROM. Désigne la zone dans _ 
laquelle le uP prend ou dépose les adresses de retour des routines 
MCODE _(digits 6 à 3). 





KEY (KEY / KEY): 
Désigne la zone de C où le contenu du registre KEY du HP est 
déposé (digits 4-3). 


CHAMPS )INTEURS : 


PT (@R / PT): 
Opération sur le digit désigné par le pointeur actif. 
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PQ (P-Q / PO): 
Opération sur les digits désignés de la façon suivante par P et Q: 
Si P<=Q digits (Q) à (P). 
Si PQ digits 13 à (PJ). 


WPT (R< / WPT): 
Opération sur les digits compris entre le pointeur actif et ©. 


LES MNEMONIQUES  H z 


Voici les mnémoniques telles qu'elles apparaissent dans les listings 
d'origine HP: 


A=Q Effacement du registre A. 





B= B. 
Cc=o C. 
AB EX Echange des registres À et B. 
AC EX A et C. 
CB EX C et B. 


B=A Copie du registre À dans le registre B. 
C A. 
B C. 





A=A+B Addition de B à À, résultat dans À, B inchangé. 
A=A+C C à À A, C 
C=C+A A à C C, À 
Soustraction de B à À, résultat dans À, B inchangé. 
C à À A, C 
C à À C, À 





A=A+1 Incrémentation de 1 du registre A. 
C=C+1 Ci 


C=C+C Addition de C à lui même (Multiplication par 2). 


Décrémentation de 1 du registre À. 
C. 








=-C Complémente le registre C à 1 ou à 9, selon le mode DEC ou HEX. 
C-1 Complémente C à 2 ou à 19, selon le mode DEC ou HEX. 









7A#Q Lève le carry si À est différent de ©. 





?B40 B 

?C40 Ê 

?A#C A & . 
?A<B Lève le carry si À est inférieur à B. 

?A<C A ê 

A SR Décalage de À, d'un digit vers la droite: @-»[  ]->dig.perdu 
B SR B 

C SR & 





A SL Décalage de À, d'un digit à gauche: dig.perdu<— — 9 


0 es | 


PPC-T No1l4 Mai-Juin 1987 Page 16 





Remarque : 
Toutes 


situés 


&uiun 
xa 


zA 


M 
G 
c 
N. 
c 
c 
SB-F 


C=REGN n 


REGN=C n 





?Fn=1 


SEFPRF n 








Copie C dans 


N EX Echange C et 





les opérations précédemment décrites, sont effectuées sur 
les digits spécifiés par les postfixes champs. Les autres digits, 


en dehors de ces champs, ne sont pas perturbés. 


suivantes 


Pour les instructions Vles postfixes champs ne sont pas opérationnels 
les opérations n'interagissent que sur les digits précisés. 


G=C Copie les digits R et R+1 de C, dans G.(R pointeur actif) 
C=G Copie G dans C aux digits R et R+1 (R pointeur actif). 
CG EX Echange G et les digits R et R+1 de C (R pointeur actif). 


Copie C dans M (tous les digits). 


M 


€ 
EX Echange C et M (tous les digits). 


N (tous les digits). 
N C 
N (tous les digits) 


F=SB Copie le registre ST(SB:Status Bits), dans F. 


F ST(SB). 


FEXSB Echange F et SB. 


ST=C Copie les digits 1-S de C dans ST. 
C=ST Copie le registre ST dans les digits 1-9 de C. 
CST EX Echange ST et les digits 1-9 de C. 


Copie dans C, le contenu du pie registre mémoire du bloc 


de 16 registres sélectionnés(9 à 15 en décimal). n variant 
de 1 à 15, n-9 n'existe pas. Le registre copié devient le 
registre courant. 

Ecrit le contenu de C dans le pren registre du bloc de 16 
registres sélectionnés. n variant de GS à 15 en décimal. 

Le registre écrit devient le registre courant. 


Copie dans C, le contenu du registre mémoire courant. 
Ecrit le contenu de C dans le registre mémoire courant. 
Rotation à droite de n digits du registre C (n#9 à 13). 


Positionne à 1 le drapeau n (9 à 13). 
o 
Lève le carry si le drapeau n est à 1. 
pointeur 
Affecte la valeur n auVactif (n#9 à 13). 
Lève le carry si le poiteur actif est égal à n (@ à 13). 


Charge le digit de C, désigné par le pointeur actif, avec 
la valeur n (GS à 13), puis décrémente le pointeur actif. 


Lève le carry si le drapeau périphérique n (@ à 13) est à 1 
Ces drapeaux ne peuvent qu'être testés par le HP, car seul 
le périphérique concerné peut le positionner. 

Sélectionne le système périphérique n($9 à $F). Le HP est 
inactif pendant ce temps, ce qui permet au périphérique 
ncreersonne d'effectuer son travail (gestion des ressources 
u HP). 
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GONC+ d Saut 
à @. 
GONC- d Saut 


GONC 
ings 


dente, le saut devient un saut inconditionnel. 


GOC+ d Saut 


d variant de $91 à $49. 


GOC- d Saut 


: d variant de $91 à $49. 


CLR ST Effacement du registre ST. 


RST KB Mise 


CHK KB Teste le clavier, lève le carry si une touche a été pressée. 


DEC PT Décrémente le pointeur actif de 1. 
INC PT Incrémente le pointeur actif de 1. 


SPOPND Détruit le retour de sous-programme en attente sur la pile MC 
et pousse les retours suivants d'une position. 2929 est placé 


au ni 


POWOFF Place le calculateur en mode STAND BY ou DEEP SLEEP, selon 


que 1 


l'exécution de l'instruction est équivalente à la mise hors 


tensi 


instruction doit être suivie du code @@9. Le PC est remis à @ 
et le HP est en attente d'une touche. 


SELP Désigne le pointeur P, comme pointeur actif. 
SELQ Désigne le pointeur Q, comme pointeur actif. 
7P=Q Lève le carry si P=Q. 


LLD Lève 


CLRABC Efface les 14 digits des registres À B C. 
GOTOC Charge le PC avec les digits 6 à 3 de C(zone adresse). 
C=KEYS Copie le contenu de C dans les digits 4 et 3 de C. 


SETHEX Place le CPU en mode HEX. 
SETDEC Place le CPU en mode DEC. 


DISOFF Place 
DISTOG Inverse l'état de l'afficheur: ON->OFF / OFF->ON. 


RTN Retour impératif. 
RTN C Retour si carry=1. 
RTN NC Retour si carry-=g. 


LDI Cette instruction place le code hexa du mot de 19 bits 


relatif avant de d mots de 19 bits si le carry est 

d variant de $91 à S3F. 

relatif arrière de d mots de 19 bits si le carry est à © 
d variant de $91 à $3F. 


apparait quelquefois sous la forme GOTO dans les list- 
HP. Le carry n'ayant pas été levé à l'instruction précé- 


relatif avant de d mots de 19 bits si le carry est à 1. 


relatif arrière de d mots de 19 bits si le carry est à 1 


à © du registre KEY. 


veau le plus haut. 


‘affichage est sur ON ou OFF. Si l'affichage est sur OFF 


on du calculateur (comme avec la touche ON). Cette 


le carry si la tension de la batterie est faible. 


l'afficheur sur OFF. 








suivant, dans le champ X de C. 


STK=C Empil 
routi 





——_—_—_—_—_—_—_—_—_— 


e les digits 6 à 3 de C, dans la pile de retour des 
nes MCODE. C n'est pas modifié. 


——_————— | 
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DADD=C 


GOKEYS 


CXISA 


C=CORA 


C=CANDA 


PFAD=C 


Dépile la pile de retour des routines MCODE et place l'adres- 
se dans les digits 6 à 3 de C. 


Cette instruction sélectionne le registre mémoire (en RAM), 
dont l'adresse est dans le champ X. Cette adresse est inter- 
prétée en hexa indépendamment du mode choisi. 


Copie le contenu du registre KEY dans les 2 derniers digits 
du PC. 


Copie le contenu de l'adresse des digits 6 à 3 du registre C, 
dans les digits 2 à © de C. 


Effectue un OU logique sur 14 digits entre À et C, résultat 
dans C, À inchangé. 


Effectue un ET logique sur 14 digits entre À et C, résultat 
dans C, À inchangé. 


Utilise les digits 1 à @ de C comme numéro du périphérique à 
adresser. 


GSBLNG nnnn (en 2 mots de 19 bits) Exécution de la routine à l'adresse 


nnnn si le carry est à @. 


GSUBC nnnn (en 2 mots de 19 bits) Exécution de la routine à l'adresse 


nnnn si le carry est à 1. 


GOLONG nnnn (en 2 mots de 19 bits) Saut à la routine à l'adresse nnnn 


si le carry est à ©. 


GOLC nnnn (en 2 mots de 19 bits) Saut à la routine à l'adresse nnnn 


si le carry est à 1. 


LES DRAPEAUX 


LES DRAPEAUX INTERNES : 


Ces 14 drapeaux sont conservés dans 2 registres du HP: 


FG-F7 Dans le registre ST (SB:Status Bits) 
F8-F13 Dans 1s registre XST. 


Ces drapeaux n'ont pas de rôle particulier, sauf F19 à F13: 


FIS:Si armé, le pointeur PRGM utilisateur(dans le reg. d'état 
b), pointe sur un programme en ROM. 


F11:Si armé,la montée de la pile opérationnelle est autorisée. 
F12:Le pointeur PRGM de b est dans un programme PRIVATE. 


F13:Un programme est en cours d'exécution. 


Le registre ST contient généralement le jeu @ des drapeaux (selon HP), 


c'est à dire les drapeaux 48 à 55 du registre d, aux places 7 à ©. 
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LES DRAPEAUX UTILISATEURS : 


Ce sont les drapeaux du registre d: 


20-10 
11 
12 
14 
15-16. 


17 
18-29 
21 
QZ 
23 
24 
25 
26 
27 
28 
29 
30 


31 
32 
33 
34-35 
36-39 
49-41 


42-43 


44 
45 
46 
47 
48 
49 


Usage général, état conservé par la mémoire permanente. 


Exécution automatique des programmes utilisateurs. 
Impression en double largeur. 

Reécriture sur une carte magnétique protégée. 
Contrôle des modes de l'imprimante IL: 


3 SG MAN 
GS 1 NORM 
1 © TRACE 


1 1 TR/STACK 
Enregistrement incomplet. 
Usage général, baissé (2) à la mise sous tension. 
Autorisation d'impression. 
Entrée numérique. 
Entrée alphabétique. 
Invalidation d'erreur de dépassement de capacité. 
Invalidation d'erreur. 
Autorisation d'émission de sons (BEEP / TONE). 
Mode USER. 
Séparateur décimal (virgule/point). 
Autorisation du groupement de chiffres. 


Catalogue en cours (CAT). 


Mode DMY / MDY (module TIME). 

HP-IL en mode manuel. 

HP-IL en mode manuel absolu. 

Non utilisés. 

Nombre de chiffres significatifs affichés. 
Modes d'affichage: 


“ © SCI 
S 1 ENG 
1 © FIX 


1 1 FIX / ENG 
Mode trigonométrique: 


9 © DEG 
@ 1 RAD 
1 © GRAD 
1 1 RAD 


Inhibition de l'auto-extinction. 
Entrée de données. 

Séquence de touche partielle. 
Indicateur SHIFT. 

Indicateur ALPHA. 

Indicateur batterie faible (BAT). 
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VIEW, AVIEW). 





Indicateur de message (Erreurs, 





51 SST en cours d'exécution. 
52 Mode programme (PRGM). 

53 Fonction 1/0. 

54 Pause en cours (PSE). 

55 Imprimante présente. 


CORRESPOND2ANCE DES MNEMONIQUES 


La table ci-dessous décrit les différentes mnémoniques employées. 


# Les mnémoniques HP utilisées dans les listings des ROM internes. 
# Les mnémoniques PPC développées à la naissance du MCODE. 
# Les mnémoniques utilisées par le desassembleur du module ZENROM. 











HP PPC ZENROM 
A=Q A=Q 
B=@ B=9 
C=9 C=g 
AB EX AC>B 
AC EX A<)C 
CB EX B<>C 
B=A B=A 
A=C 

C=B 

A=A+B 

A=A+C 

C=A+C 

A=A-B : 
A=A-C 

C=A-C 

A=A+#1 

C=C+1 

C=C+C 

A=A-1 

C=Cc-1 

C=- 

C=-C-1 

?A#Q 

?B#0 

?C#0 

?A#C 

?ACB 

?A<C 

À SR 

B SR 

C SR 

A SL 

G=C 

C=G 

CG EX 

M=C 

C=M 

CM EX C<>M 

N=C N=C 

C=N C=N 
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PPC ZENROM 


C<>N C<oN 
T=ST F=ST 
ST=T ST=F 
STCT STF 
ST=C ST=C 
C=ST C=ST 
C<>ST C<>ST 
READ n(state reg.) C=REG n/state reg. 
WRIT n(state reg.) REG=C n/state reg. 
READ DATA RDATA 
WRITE DATA WDATA 
RCR n RCR n 
SETF n SFn 
CLRF n CFn 
?FSET n ?7FS n 
R=n PT=n 
?R=n ?PT=n 
LDER n LC n 
?FI=Q ?PBSY 
?FI=1 ?CRDR 
?7FI=2 ?PWNDB 
?F1=3 PPF=3 
?7FI=4 ?PF=4 
?FI=5 ?PEDAV 
?7F1-6 ?IFCR 
?SRQR 
?FRAV 
?FRNS 
?ORAV 
PTFAIL 
?ALM 
PSERV 
PERTCT 
JNC +d 
JC td 
ST=9 
CLRKEY 
?KEY 
-PT 
+PT 
CLRRTN 
POWNOFF 
ET=P 
PT=Q 
?P=Q 
?BAT 
ABC-9 
GTOC 
C=KEY 
SETHEX 
SETDEC 
DISOFF 
DISTOG 
RTN 
CRTN 
NCRTN 
LDI S8x LDI 
PUSH ADR STK=C 
POP ADR C=STK 
RAMSLCT RAMSLCT 
GTO KEY GTOKEY 
FETCH S8X RDROM 
C=C OR À C=CORA 
C=C AND À C=CANDA 
PRPH SLCT PERSLCT 
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HP 


GSBLNG nnnn ?7NC XQ nnnn 
GSUBC nnnn 7C XQ nnnn 
GOLONG nnnn ?NC GO nnnn 
GOLC nnnn ?C GO nnnn 


résumées dans le tableau ci-dessous: 


HP PEC 
non spécifié ALL 
S MS 
M M 
XS XS 
X S&x 
non spécifié ° ADR 
KEY KEY 
FT @R 
PQ P-Q 
WPT R< 
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BOY Frédéric T697 


NCXQ nnnn 
CXxQ nnnn 
NCGO nnnn 
CGO nnnn 


Les postfixes champs possèdent également 3 notations différentes , 


ZENROM 


ALL 
s 

M 
xs 
* 


non spécifié 
KEY 
PT 
PQ 
WPT 


ATTENTION: Lorsque vous travaillez sur un listing MCODE qui a été 
réalisé par un désassembleur différent de celui que vous possédez , 
identifiez rapidement de quelles mnémoniques il s'agit, car cela peut 
entrainer des erreurs d'interprétation. 


Par exemple l'instruction SELP n (chez PPC) est totalement différente 
de SEL P (chez HP) . 
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RICHARDSON 


AMEL IORATION DE _ LA FRECISION 


FRR LE FROCEDE DE RICHORDSON 





Le Principe est le suivant:il s'agit de calculer une quantité Q(0) qui ne 
peut être approchée que par une quantité Q(h) qui dépend d'un certain pas h 
(par exenple la Tonqgueur des sous intervalles en integration numérique). 
nous pouvons écrire 

LIM @Ch) = R(O) lorsque h->0 
La valeur Q(9) est donc supposée inaccéssible,;mais il est Parfois possible 
de prouver que B(h) se représente comme la somme de puissances de h. 


Exemples: 


3 
O3 BCh)=0(0)+q,h+a, h+q,h+-. 
dans l'integration par la méthode des rectangles. 


(225 @(h)=0 (0) +q, ht, h+q tes ccccneee 
dans l'intégration par la méthode des trapèzes ou du point 
médian,dans le calcul d'une dérivée centrale. 
CH: @Ch)=0 (0) +0, h+a, + he. sas 
dans la résolution d'une équa.diff Par la méthode de 
RUNGE-KUTTA 





a. 
(43: @(h)=0 (06) + h+a +, heu. 
intégration de SIMPSON où de GAUSS. 


Théoriquement le résultat est meilleur si h est petit mais le temps de 
calcul est plus long. 


RICHARDSON à donc mis au point un procédé qui permet de construire des 
résultats correspondants à des pas h de plus en plus petits,donc de 
Précision meilleure, par des opérations arithmétiques élémentaires 


Supposons que nous ayons démontré: 


h)=0(0)+p.h +001) 
donc nn Hi, 

Gr. h)=0(@)+p. rh +0 (H") 
multiplions la deuxième égalité par r°" 





r.0 (0) -0 (0) = "8tr.h)-@ 6h) 


r.@@-h)-0 th) 





FES 


On choisira r et n suivant les applications à traiter: 


intégration par la méthode des trapèzes. 





4.@(h/2)-G(h) 


on écrira alors : 





r=1/2 
dérivée latérale. 
n=i 


@(@)= 2.@(h/2)-Q(h) 
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Avec les résultats d’un calcul direct correspondant à des pas h de plus 
en plus fins,on construira des résultats améliorés en se servant de deux 
éléments consécutifs; Ceci nous mène directement àla construction du 
triangle de RICHARDSON. 


La formule générale peut s'écrirez 








R'menes © 
n=0,1,25334 52 sacre con 
R9Q 
> Rii 
R1Q > R22 
ÿ. 'R21 > R33 
R2@ > R32 > R44 
> R3i > R4Z > R55 
R3e > R42 > RS4 
> R4i > RSS . 
R4Q > R52 . résultat 
> R51 optimum 
R5@ 
etc... 


On passe d'une précision en h äune précision en h#h puis en hxh#h 


UTILISATION 


Nous allons maintenant mettre en oeuvre ce qui vient de suivre. 

Soit donc une grandeur dépendant d’un pas h avec un développement 

de l'erreur suivant des puissances entières positives de h; Nous 
pouvons construire la colonne (9) du calcul direct en choisissant des 
pas de plus en plus fins du type: h =h/ 2° 








ImO 142 Sue os 

ROO= Ah) 

> R1,1 
R10= O(h/2) > R2,2 

> R2,1 > R3S,S 
R20= @(h/4) > R3,2 > R4,4 

> RS,1 > R4,3 
R30= @(h/8) > R4,2 

> R4,i 


R40= Q(h/16) 


Nous pouvons alors exprimer par une formule simple la valeur de R44 
ce qui nous évitera de calculer les valeurs intermédiaires du triangle. 


formule générale : 
dans le cas où r=1/2 


P 
(1/2). Ftr.h)-F<h) 





7/2) 
cas (1): première colonne  p=i erreur en h 


2. Ftr.h)-F4(h) 
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Rii= 





2-R18 -ROO 





R21= 2.R20 -R19 


R3S1= 2.R30 -R20 


Deuxième colonne: P=2 


4.FGr.h)-F Ch) 





A.R21 — R11 8B.R20 - 6.R19 + RoO 








4.R3S1 -R21 B-R36 — 6.R20 + R19 






Troisième colonne: P=3 







8.F(r.h)-F{h) 









B.R3S2 - R22 64.R3@ — 56.R20 + 14.R1@ — RaQ 


RES 


7 























De même pour P= 4 on écrira : 





rag= 1914: Rio — 360: Rso+ 210820 - Jo tk 
3x7x A5 







En ce plaçant dans le cas où le développement comporte toutes les 
puissances paires positives de h, on écrira: h= h/2i 
LOG 2 Se assoc 





4.R10 — Ro 






64.R20 — 20.R10 + RoO 


RD 


45 
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4096.R3O — 1344.R20 + 84.R10 — ROO 


RES = 


2855 


Raa = 404576 x Rio — 348460, Raot JS Rep - SLOR1o+Ro® ec. 


22 915 


Application du procédé d'amélioration de RICHARDSON à l'intégration 
par la méthode des trapèzes. 


La formule à programmer est la suivante: 


£ fo)a 


n-1 
Rs { 4 Féo)s Le Fox) +4 Foro) 
z ia 3 





Xe Kb Vo 24h 


La méthode des trapèzes ne donne en général que des résultats grossiers 
Si l’on choisi un pas très fin le temps de calcul devient alors trop 
long,mème si la précision augmente ce n'est pas un bon compromis. 

Prenons par exemple le programme d'intégration par la méthode des 
trapèzes de monsieur HERREMAN Alain dans M-C numéro 7. 


Nous pouvons le modifier afin de construire un triangle de RI. à trois 
colonnes 





Ch) RO On calcule l'intégrale avec un 
> R11 pas h pour obtenir R806,puis avec 
€h/2) R19 > R22 un pas h/2 pour caculer R10, 
> R21 et h/4 donnera R20. 
(h/4)  R3O 


Les données sont conservées dans la mémoire étendue,puis on applique 
la formule de RICHARDSON correspondant à la pointe du triangle. 


64.R2G — 29.R19 + RO9 


45 
On choisira un pas initial de @.1 C voir le programme ci apres). 


Dans l'exemple : A2 
ra dx 
° Va 


x 
Le résultat obtenu est juste sur les 9 décimales; Le résultat 
théorique est =: 1/6 





&. 
Pour / de-tne ,le résultat est également juste sur 9 décimales. 
A titre de comparaison je vous propose un programme d'intégration par 
la méthode de SIMPSON, qui est réputée pourétre la plus précise. (Joir programme) 


Roc: 0,693111484 





8,693147375 


Rao = 0693303382 2,69314718 = Ln 2 
(2 40°") 
s 9,693147193 


erreur sur le résultat 


R20 = 0,693186248 
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Un autre exemple d'application est donné Par la résolution d'une equa. diff. 
du premier ordre par la methode d'EULER. 
Les équations a programmer sont : 


Xa = Xa-s + h# F(Xz-3) 


Ta = Tai +#h 
11,235: 
n etant le nombre de points de 
calcul. 
Sachant que le développement de l'erreur est suivant les puissances 
entières de h,on applique la formule 


ss 





B-R24 — 6.R1@ + ROO 





3 
On obtient le triangle suivant: peur. léuañon  X':X 


2,701484944 
> 2,718186188 

2,709835566 > 2,718281620 
> 2,718257764 

2,714046665 


En fait l'erreur globale sur le résultat dépend du nombre de points de 


calcul. 


D'autres applications sont possibles notamment dans le calcul des dérivées. 


Brblegraphie PÉGORITHHIQUE NunEkiQUE 
J. Covor TJ GACHES 3 SovHnrT 
Gurs cle l'ENSAr premiee parhe 


MATHS. APpLiQuees ET Calculatrices PROGREMHRUES 
L. Solomon H. HocCavermiLlier 
editeur : Has<oy 
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Trapè 3es : 


CI CONTRE LE PROGRAMME 
D INTEGRATION AVEC FF 
-DE DE RICHARDSON. 
MODE D'EMPLOI 

CREER UN FICHIER DATR DE 
3 REGS HOMME'FF. 

PUIS METTRE LA FONCTION 
A INTEGRER SQUS LE LABEL. 
°FF2 LANCER LE PROGRAMME 
ET ENTRER LES BORNES. 








EXEMPLE 
TE 
POUR VE 


RT. 
Fù 
LABGGAGBAR ENTER 
2.RAGOAABES Pi 


8,697147181 ss 


Biel8L “RIIN* 
82 FF" | 
83 CLFL 

@4 E-1 

95 STO 48 

26 | 
es 
88 * 
8 






 D— 


> 


INITIALIEATION, 





1,7 SAUVEGARDE DES Flo. 


* DIVISION 
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5 PAR 2 














EL DESSOUS LE PROGRAMME 

D'INTECRATION PAR LR 

METHODE DE STHPSO. 

NODE D'EMPLOI 

INTRODUIRE LA FOHCTION © 

INTEGRER SOUS LE LABEL 

FF! PUIS INTRODUIRE L 

DONNEES EN REPONDANT AU 

QUESTIONS. À 

EXEMPLE. pour /° 9€ 2 nd 
LT 








KES “SIMP 

H=? 
18468 RE 

atb 
L:ABRGR ENTEP‘ 


RUE 
4 





17 ST/ 88 
18 ST, 83 
19+L8L 88 
28 SF @f 





22 STû 82 
23eLBL 8! 
24 RCL 83 
25 ST+ [ 
26 RL I 
27 RE \ 
28 K<=v? 





4 * 

35 FC?C 61 
36 40% 
37 ST+ 88 
38 DSE 82 
39 GTO 81 
44 GTO 88 
41eLBL 92 
42 RCL 83 
432 

44 + 

453 

4 / 

4r RCL 88 
48% 

49 END 


G1eLBL “FF 
62 1/X 
83 ENI 








La méthode de SIMPSON œnsisk a approcher 
l'are sous le graphe per larre de frapezes “Gurvilignes * 
el ks paru are ce para bole . 2 


Fo) = 
: 4 — Fonchon 


77. are de para bole 





la parabole Passe per Frors ports : Ge, Fox) ; 
Cut, Fouib)); Caith, Foub)). 
La rm à P'eg'ammer £ tënl: 


b n- n-1 
J Foddx = h [YA + Yo/ze Sy + 8x )0+1)] 
aq 3 c=o 


t=0 
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PRP *EULEP* 


O16LBL “EULER” 
92 "FF" 
03 CLFL 
84 CLRG 
853 
86 STO 85 
87 *KB=7" 
88 PROMPT 
89 ST0 88 
18 STO AI 
11 “T8=?" 
12 PROMPT 
13 STO &2 MODE D EMPLOI: 
14 STO 86 INTRODUIRE À LA DEMANDE 
15 °H=2" LES VALEURS Xä, Té ET K 
16 PROMPT QUI EST LE PAS. 
12 ST0 87 PLACER LA FONCTION SOUS 
18 1/X LE LABEL F/SACHANT QUE 
19 STO 63 K EST DANS R&A ET 
T DANS ROZ. 
28eLBL 62 
21FIX@ 
22 VIEN 45 
23 FIX 9 


244L8L 88 
25 XEQ FF 
26 RCL 87 
27 ST+ 86 
HA 

29 ST+ 8 exemple: 

ES x'= x X(o)z 4 Ghhen X: et 
32 CL 
33 RCL 88 
34 XO a! 
35 SRVEY 
3 2 

37 ST, 87 


KEO “EULES" 
Xa=7 

LGAApREE PI 
T8=? 
E CNTÉECCCE BIeLEL FF- 
: 5 ue H=? 8e RCL O1 
46 RL 67 “BGmAUEe RU 3 EXD 
A1 1/4 s 
42 ST 83 î 
43 DSE #5 ns : 
44 GTO 82 2:F18159647 #r+ 
45, 
46 SEEKPT ” 
47 GETX | 
48 GETX 
496 Ge 
ES B,GRAABAAGE FU 
Si H=? 
52 GETX 
ER RSARARARE RU 
54 * 
55 + 
we 22674 #0 
57 / Re 
58 RAT end. pu 
x8=7 


L,APAAAAAAE RU! 








1,808488088 FI: 
8,808R88BR FUN 


<B12588888  RI 


2718281621 #++ 
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PATAQUES DE DIR 


"PATAQUES DE DIR" 


Ceux qui possèdent un Lecteur de K7 HP 82161A ont peut-être 
eu [ou auront ?] £a désagréable surprise de découvrir un DIR 
plus ou moins perturbé. Lorsqu'on a pas pris La précaution de 
doubler nos enregistrements, 4£ faut avouer que cela n'a rien de 
jouissié.... Le PRGH "RECED" ci-après permet de nécupêrer (Recti- 
éien] un tel DIR chambandé et i£ m'est même arrivé de rattraper 
des fichiers qui donnaient Lieu au message d'erreur "MEDM ERR" 
sur une partie de bande magnétique devenue défectueuse. 

Nous devons remercier Pierre ANTOINE pour son très bon anti- 
cle publié dans MICRO-REVUE N°2 pages 80 à 83. Les utilisateurs 
des PRGM ci-après devront se reporter à cet article. 

"RECED" = RECond EDitor (p£agiat partiel du nom de £a 
merveilleuse fonction RAMED de £a ZENROM) permet de Lire et de 
modifier tout ce qui est enregistré sur La bande d'une K7. Ce 
PRGM (aënsi que "FULLDIR" avec "XNEWM"} utilise des fonctions du 
module Extended 1/0 HP 82183A; Le module HP-IL 82160A est, bien 
entendu, également nécessaire ainsi que £e XFUNCTIONS bien que 
ce dernier n'est utilisé que pour La £onction PSIZE. 

L'utilisation de "RECED"est nelativement facile et il est 
conseillé de se reporter à £a Page ESSAIS ci-après où des exem- 
ples d'utilisation avec IMPrimante en mode NORM sont commentés. 
Ce PRGM est à utiliser avec une IMPrimante HP 82162 ou 82143 en 
mode MAN ou avec une VIDEO. Avant de charger ce PRGM en MAIN 
MEMORY, &L est vivement conseillé d'effacer toutes Les ASN éven- 
tuellement actives (CLKEYS). Les affichages exc£usigs (Display 
Only) sont ponctucs par un TONE. 

PIST. demande L'introduction du N° de PISTe sun Laquelle on 
désire intervenir: intoduine zéro ou 1 £& R/S [une in- 
{roduction farfelue provoque une nouvelle demande]. 

REC. demande £e N° de RECord à partir duquel on désine Line: 
L'äntroduire & R/S [une valeur supérieure à 255 provo- 
que une nouvelle demande}. 

©) (repère de £a Page ESSAIS] imprime La Lettre D suivie 
de 16 CARactènes et de : (2 points}, imprime en fait 
ce que j'appelle une LIGNE de CARactènes, 16 CARactères 
dont £es N°4. des Octets correspondants sont précisés 
(TMPression £ AFFichage] par un argument ddd.£$££ où ddd 
indique Le N° du Ten. Octet de £a LIGNE et £$4 Le N° du 
dernier Uctet de cette même LIGNE. 

A La suite de cet afgichage Les 3 possibilités sui- 
vantes sont offertes : 
a) Listing des CODES DECimaux des 16 CAR de £a LIGNE : 
taper L (comme Listing = KEY 33] ou 
O {comme Octets = KEY 42] ou, ce qui est plus 
facile 3 (KEY 74 juste au-dessus de R/S). 
b) Passage à £a LIGNE des 16 Octets suivants 
taper R/S 
c) Rectification de 1 à 23 CARactènes : 
taper R (comme Rectification = KEY 52) ou 
<— (KEY 44). 

R ? propose une éventuelle Rectification (c£. c) ci-avant] 
à La suite d'un Listing des CODES DEC; un nouveau 
Listing n'est pas possible à ce niveau. R/S permet 
d'accéder à £a LIGNE suivante. 

OCT. (après "R") demande Le N° du 1er. Octet à Rectifien : 
L'äntroduire & R/S . 

CODE/OCT.o (o = N° de L'OCTet} demande £e CODE décimal à intro- 
duire dans L'OCTet précisé : Le taper & R/S, ce CODE 
est alons imprimé (X). 
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Taper simplement R/S quand &l n'y a plus d'Octets à Recti- 
fier et ne pas s'étonner d'une XEQcution automatique à £a 
suite de L'introduction d'un éventuel 23ème. CODE ou d'un 
CODE sur un OCTet N° 255 can : 

AUCUNE RECTIFICATION NE PEUT ETRE FAITE EN DEHORS DU REC COURANT 


Comme £e montre L'exemple de La page ESSAIS, i£ est 
possible de Rectifier en amont ou en aval des derniers Octets 
proposés. Cette éventualité est détectée et ponctuée par un 
BEEP et £a LIGNE Rectifiée affichée à La suite est celle où 
se trouvait Le 1en. Octet Rectifié. 

Je peux assurer que L'utilisation de ce PRGM est plus 
facile que son explication.... 

Ce PRGM n'a pas ëté appelé "DIRED" can i£ permet d'inter- 
venir sur La totalité des enregistrements (REConds]. La £ec- 
ture d'un FICHire "WA" peut notamment permettre de découvrir 
ce qui est enregistré dans ce cas. Mais au fait, 319 + 16 
REGistnes d'ETAT = 335 et un FICHier "WA" utilise 336 REG. 

A quoi sent donc Le 336ême. REG ? Signalons que Le desas- 
semb£age de La fonction WRTA permet également de découvrir 
que celui qui L'a écrite ne s'est pas mis La rate au count- 
boui££on.... 

La Page DIR-UTILITY ci-après vous aidera à interpréter 
(et à Rectifien éventuellement) La Lecture des Octets de 
#out DIRectony. 


"XNEWM" & "FULLDIR" 

Le PRGM "FULLDIR" (DIR comp£et) est Le complément de 
“RECED" (prononcer "riquèd"] et je conseille à ceux qui uti- 
Liseront ce PRGM de s'en servir comme "précaution" poux 
{outes Les K7 utilisées. Ce PRGM permet d'obtenir toutes Les 
indications contenues dans un DIR, ce qui permet d'éventuel- 
Les Rectifications. 

L'utilisation de ce PRGM nécessite Le même matériel que 
pour "RECED" et ££ sug£it d'XEQcuter "FULLDIR" pour avoir un 
"DIR" semblable à celui de £a Page ESSAIS. 

Le nombre de FICHiens utilisables est IMPrêmé et XEQ 
“XNEWM" permet d'obtenir uniquement cette indication. Notons 
au passage que La valeur indiquée est celle du nombre de 
FICHiens réellement utilisables et peut être supérieur à La 
valeur placée en X £ors du NEWM (£a différence ne peut être 
que de F7 au maximum]. 

Les numéros de REC. sont indiqués can À£s facilitent 
grandement L'utilisation ultérieure de "RECED". 

Le nom de chaque FICHier est précédé de son N° "DIRX" 
{éonction du module I/0}, numéro dont L'utilité est évidente 
pour ceux qui possédent ce modu£e ou £a fonction DIRX. Ce 
N° est remplacé par // quand &£ s'agit d'un FICHier "PURGé", 

Les nombres qui suivent £e nom du FICHier sont tous ceux 
qui sont significatifs et La Page DIR-UTILITY ci-après per- 
mettra de vous y retrouver [7]. 

La valeur imprimée à La fin est Le nombre total de FICH: 
FICH "DIRX" et FICH "PURGéSs". Je dois avouer que L'utilité 
de cette dennière valeur n'est pas évidente [77]. 

J'ai fait un PRGM "DIRED" qui IMPrême en c£ain Les mê- 
mes indications qu'un DIR (fonction DIR] complétées de celles 
données par Le présent "FULLDIR" (position et Longueur en 
REC) mais 6a Lenteur d'XEQcution est à £a Limite du suppor- 
table. Je Le tiens cependant à £a disposition de ceux qui 
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seraient éventuellement intéressés. Son équivalent écrit en 
mécrocodes est bien entendu beaucoup p£us rapide mais Les 
possesseurs de MLDL sont peu nombreux et sont sans aucun 
doute, parfaitement capables d'écnine un tel PRGM. 

J'ai commenté Le plus possible Le Listing des PRGM à 
L'attention de ceux qui se demandent: Comment s'y est-il 
pris ? Le TONE 7 e4£ en fait un TONE 37 qui n'est utile 
que dans Le cas d'utilisation d'une "41 1500 REG JV". 

Le PRGN "FULLDIR" a un BUG [un seuê, j'espère ?] 
dans Le cas d'un nombre total de FICHiens mu£tiple entier 
de 8, Le N° du REC. suivant est imprimé alors que ce REC. 
n'est pas utilisé. Tout nemède à ce BUG ralentit passab£e- 
ment L'XEQcution du PRGM. J'ai une solution "rapide" si 
quelqu'un m'indique Le moyen d'effacer Le contenu de £a 
MEMoëre {ampon ALPHA ([BUF£er ACA) sans qu'il soit IMPrimé. 
Jean-Jacques ou Stéphane : CLBUF mais sans L'IMPression du 
contenu du BUF; à vous ! J'espère ne nien avoir oub£ië. 

{(X) L'éntroduction d'une valeur supérieure à 255 provoque 
une nouvelle demande d'introduction de CODE. 
A7S (T178) 
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24 


Fr 
82 Dee Sr} et SFi04) 
83 cr0 68 
mt 
85 oe 1 sF63) 








478 81 
48 2 ys 
ass | 
mn |EZ 
UE 










S1 FC? 25 
52 GTO er: 












ul 
DS 66eLBL 88 à SE “ 3 

87 ASTO à 02,05 Fr # 

@8 TOME 7 (37) 56 RCL 08 29,4 ë 

84 57 OUTRC 4 

18 PSIZE 5. JENva 
lus (Sa 
DRIVI 68 FS70{83h 62,05 

13 FINDRIDÉ 4 92451 61 RTH (ER #7, 

14 SELECT 

15 CLRDEV (EH à @) À G2LBL 83 

16. Lez 150 88 44,74 

17 S10@D | 64 ür0 8374 

18 KEQ 14460 5 “REC.” 

SE. 

Le Je & digre) | 66 BRL 81 45,72 

21 KE0 81 4 er 

224 yhctun 69 CF 12 

23 IN S CAR 7 7 

24 ATOKX (N) 71 570 @) 

ë 3 Mona Disc 

2 E HP 82 160A 

2 - D age 52 F4 73LBL 8 3 

29 CLA 7 md eS CARÉ Ar) 

38 BRCL + 26 aroxr (@t.15) 

31 “FICHIERS. HO) FTS 

S2ReIe 78 ATOXR (OL. 14, 

33 FS7(28] ©2 79 ATOXR {Ut A3) 

34 G10 13450 (FIN) AN 

35 E 81 ao (@t.42) 

%/ f de LE 82 CLX 

PE Jémuums 83 arüxe (Ott 14) 

ne 84 ENTERT TVrE 

39 510 €) 85 x 

4. 86 SF 

a © 87 ATOxR (AL 46) 

: 88 287 
#3 SGD (NDIRX) 89 (RES 
#42 
9 + 83e 8T 

45 S06D (N2 REC) 

46 xea 14 6e LAS GR) 
Q2:HEX 0c,29,00 88,01 93 GTO 1345 0(FIN 
O5: Hex OL: 29 20, 84,81 Se 
(@t.w): Le HR 2P23 96 CLX 

è 97 ATOXL (D) | 
REG: 98 ASTO x(GE.C25 
00 Pointeur ler. Octet 99 ASHF (ot. a 

d'une ligne sur 188 ASTO Ÿ (œt.5a) 


REC 0 et REC 2 et 
ensuite 8x32 = 256 ... 
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181 CLA 93,34 158LBL 13 
182 ARCL 82 4 151 CLD 
183 F5701pa} 6et 19 152 RCL 03 448 
184 7" 153 DSE X 
165 E= jé 154 ** 
186 BREL X 155 IT 
187 ARCL Ÿ 169 à |15 F07c fe}. 2 
168 RW 8% 157 PRX 
189 ATOXR (Uct.3) 158 STOP 
118 CLX . 159 GTO *F 
111 none (0.2) 64 
He EUX 7 [s68eusL 14 
113 BREL L 87 161 4 
114 | 162 6F 25 
SARL 83 D 163 DEM 
116 RCA D | 164 FC? 25 
117 PRBUF G| 165 cr0 14 
118 CLR | 166 “Dee 0) 
119 AREL T 78 D| 167 RCL 8147, 
128 “Fe À 168 ourac 
121RRELa FF 169 END 
122 "+ EN 
EU uns Re 
1e (+) 03 cr0 88 
{ 
FE 1e AR pale “FULLDIRe 
1e an (@ttà) 
re 1e 87 RSTO d 
das roux ( 19) FE 
131 aroxe(t. 31 18 SIZE 


132 CLX 
133 aron(OÉ.3€) 
134 RTOR(QE Fe 
135 aroxr (Qt. 28 
136 CLA . 
137 ARCL à 428 
138 2h" 
139 ARCL 1 430 
148 2 

141 ARCL_ x 439 
142 
143 BREL Ÿ 434 
14 LE 

145 ARCL 2 433 
146 ACA 

147 ADV 

148 15G 83 39 
149 GTO 83 62: 















e au 
01 N° REC HO Bqne) 

02 N° "DIRX" CAT : 
03 Nombre de FICHierse (argument) LBL'XNEMN 

SF 00 : FICHier "PURGE" LBL'FULLDIR 

SF 03 : RTN (L.60 du PRGM) EXD 338 BYTES 
SF 20 : RTN / "XNEWM" (L.33) 
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13 FIHDAIN 
14 K=8? 

15 €10 82 26 
16 SELECT 

17 SF 25 

18 CLEOR 

19 “ROM_'PANRHE"" 
28 FC? 25 

21 PROMPT 

22 FC? 25 

23 GO 84 1 

2. 

25 CTYPE 
26#LBL_82 
27 AI 

28 16 

29 FINBAID 
38 SELECT 

31 CLRDEN 

R : 

33 ST0 61 

A ce 


TIVE 





PARTIE FACULTA 
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entre parenthèses indiquent des N°8. de 
on peut ee reporter. 
SF 25 eont destinées à annthiler le STAT 32. 





Le 








































mire 55 31eLBL FF PALETTE 67 
s Lun 63 JieLBL 18 RECU 
V2 Fix TRAIN 415/188 “PIST.* 
# ER ” ' Eu A 118 ë et 
34 CF 73 F5? [és] 40 DYO 
23 06,19#,153 74 CTO 83 97 ALL AVIEM) 
1 75 CF 27 67 112 TOHE 8 
76 FIK 8 65 Dis id 
77 1.816 
: 115 CT0 87407 
ZBLBL 81e, 16 SF INDEX] 
79 am | à 117 BREL * 
88 ST0 ID L À à 118 SF 21 
gt LnsTx | ü LS VIEN 
mix [ia 128 "REC. 
54,2 83 GTO 812 121 255 
Fe 84 1.816 122 CF 213 5vo 
85 RL 23 35 123 AVIEM 
6 4781 11 86 INT (fun 0.) 124 TOKE 8 
48 ROL 23 34 46 @Q-125 Sro ” 
“ue ee É da 187 
gr [ne Ier ere 
8 REX |4< 
mi | Ÿ 129 AREL X 
91 ARCL NY [y 5e Se 2 
; x [os 132 AVIEN 
SY 
2e 94 = 2° 133 CF 12 
Ë ÿ 
ob Se 
HN, DS) in env mise 
4 o7euBL 63 136 CF 217 pyo) 
a 38 *R 7 Fu ant) 
4 pes ) YO 139 SF 25 
tai SF [EST y 1e DEVL 
5 182 SF 27 o » 
66 183 SF 21 & di42 Fr ETU6 
67 SF 164 TOHE & SURE 
D)—w 6e ST0P G}2185 510 D |144-D 
nd nu FLE 
fe. 47 OUTAC 
: à 148 FC? 2545 
* (+vite/27299 Fe 
DYO = DunlaY Ovêy 158 RTK 
AA = (out) 










vous ne CONPitez  AUS= N° da PISTE -4Heu ts 
c suppression des LBL) Abe NE REC -ATS où 37 














re 244,267. 219eLBL 85 
sure ME De he JL 
TS2LELER SUR 
153 CF [8 101 RE 
154 CF 27 67,102 187 .822 223 RC à AS 
155 FIX 8 65 188 STO à 224 F9 22 198 
22 222 
AGY: 1564LBL 89 246,20 BMLBL e— ms 
| ere 11 ONU. s 2 ext 
158 “OCT. " . 
192 RCL 26 478,240 À 228 CHS 
159 CF 21 
1e nvreu D YO : RE ) Ne 2e 
rs 195 FM î as Fo[a 468 (2. HET 
163 9 196 CF 21 232 ST0(0) 267 CF 27 67 
164 GT0 89456 197 AVIEX 25 Km 268 “FIN 
198 CF 22 24 € 269 CF 21 
165 RCL 25 49 235 - )pvo 
166 INT 199 TOHE 8 : 278 AVIEN 
167 HV? AS 208 STOP 2% E3 Rabbi La 7 7 
168 SFTBd 281 FC? 22 498 mr 272 DEML 
169 15 282 GTO s 249 & 238 “D 2 se 
4 283 x)? 490 
À Fe 284 CTD 84 ÿ | 28 0 275 END 
285 “+= 248 RCL IHD * | 
172 SF [64 are B À 241 KTomR CRT°6 
173 F52184]168472 286 AREL_X Se lu FYMEMN 11 
174 BEEP 287 SF 21 "8 L'o4s 160 # COMP-12 
175 RIH 453 288 PRR s Ë C0 *FULDIRc 14 
176 25110 29 STO IH à 18 GATE RON 05 11- 14 à 
mi À 218 156 26 478 en "RECEBC 15, 3 
178 ST0 211 FS7_38 (NON) 247 DEL EAU 
1 x RA34 248 FSC [ER 242 DIR 24 & 
181 DEV È Ë 214 670 85249 me se LE 
182 “D En 215 156 a 488 258 FRS 4}2 ; Ë 
183 RCL 2678 ES 216 GTO 84 ad 25 CD 284 FR à 
184 OUTRE Ÿ 217 07 22 438 23 MCD 3, Eu 
1856 LEcutuu ARE 254 GTO 45 RE S 
186 DEN pantielte. STAT-S3 LS 
TOHE 7-54 SR 
se PRH-64 LS à 
00 Piste 0 nu 
01 Piste 1 caT'i 
02 Rectif./ Octet 255 LBL'RECED 
03 no LBL'3 
04 Rectif./ Octete # ceux proposée LBL'O 
05 Interdiction de "L"(ou "O" ou "3") LBL'L 
quand "R ?" proposé. LBL'E 
REG LBL'R 
1 à 16 Codes DEC des 16 CAR d'une ligne LEL'F 
0 à 22 Codes DEC des 23 CAR "envoyablese" EXD 36e BYTES 
28 Pointeur N° d'Octet END. 86 BYTES 
24 N° REC 
25 ler. Octet de la dernière ligne lue 
26 N° du ler. Octet Rectifié. 
LBL globaux 
ML" = MO" = "3" = Listing de 16 Octets (KEYS 33, 42 & 74) 
"RU = ME" = Rectification ("E" pour Ecrasement = KEY 44) 
MP" = FIN (facultatif) (KEY 21) 
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ESSAIS 


XEG “RECEDC” COEDSTEZ 
KEO *FULBIRC-(*FULL DIR) PRECED*) 
D Pisr. acT. 
31 FICHIERS XEQ "RECEDC: 8 RU 
REC. 2 CRECED) piste 248 RUN 
1 REc#FUc 224,64 @-+ ris. REC. © con-ocr.248 
86 8,111,888 8 RU 1 RUN 76 RUK 
2 RECED 224,128 PIST.8 REC. 1 COBE/OCT. 248-76 
817 632,48 @ REC. De46000000060000 23 RUN 
3 REHFU/X 224,112 8 RM 8.815 +++ COBE/OCT.241=73 
8,28 8,7 8,2148 REC.-8 RUX 71 RUN 
4 SRVERS 8.1 Dresereeeesneee © messes COM/0CT.242=71 
27 6,19 2,88 @ us 16.031 sx 78 RUN 
SATA 224,288 (KEY }>xEe +3 RUN COE/0CT. 243-78 
8,46 8,4 8,188 8 OCT.6 : 128 Œ) messeeness: 69 RUN 
6 ASHKEY 224,80 sr ë 32,047 enr CORE/0CT. 244-69 
8,58 818,30 . KEY Hu} KE “E- 32 RUX 
ETATS  224,% OT.3:8 ®-> or. ( > COE/OCT. 245-32 
&5i 6,18,18 8 UT4:2 8 RUN 43 RUX 
8 VID/PAN 224,128 MTS: 16 = | O-»cox0cr.e COM /0CT. 24643 
@52 618,66 11 ŒReEQ. LS 76 RUN 66 RUN 
REC. 3 DIN RS Era COE/0CT. 8-76 COBE/0CT. 247-66 
2 88 UT8:0 à Eh COR/0CT.1 65 RUX 
8,53 6,11 1,88 8 WT. 0 73 RUN COBE/0CT.248-65 
112 8,9 CALE CORE/0CT. 1273 83 RUN 
864  B,19 2,88 & ocT.i1 : 2 È 71 RU COBE/0CT.249:83 
93 224,288 QT2 516 À COBE/OCT.2=71 32 RUX 
883 6.111,88 8 0CT.13 : 8 = 78 RUN COME/OCT.258=32 
1 OCT. 14 : 8 : CODE/0CT.3-78 32 RUX 
DIR 007.15 : & 69 RUN CODE/0CT.251:32 
Nm TPE mecs GR? COBE/0CT.4=69 79 RUN 
REG#FUC WA,S 336 RUN 32 RUX CODE/0CT.252=79 
RECED PR ga phone CODE/0CT.5=32 75 RUX 
REXFU/X 77 214 16.631 +++ 43 RUN COHE/0CT.253:75 
SAVERS 15 648 (REV SSP CL conE/0cr.6-43 CT 
DATA DA 188 0CT.16 : @ 72 RUX CORE/0CT. 25446 
ASKEY KE 3 0CT.17 : 8 CORE/OCT.7=72 46 RUN 
ETATS ST 18 ocr.18 : 8 65 RUN CORE/0CT.255:46 
VID/PAH PR,S,R,P 18 00.19 : 4 {N) COBE/OCT.8=65 BLIGHE #BAS OK. 
3 mA 336 0CT.28 : 8 85 RUN 248,255 #4+ 
REG “XHEMHC”. 0cT.21 : 8 CORE/OCT.9-85 RUX 
C'XNEWM")  OCT.22 : 8 g RUN 
31 FICHIERS 007.23 : @ COBE/0CT. 18-84 REC. 2 
QCT.24 : & 32 RUN BREC+FUc "4er 
0CT.25 : @ CORE/0CT.11=32 ® 6.815 44e 
0CT.26 : 8 79 RUN (KEY 42e xEe 0° 
OCT.27 : @ CORE/0CT. 12:79 ocT.8 : 82 
0CT.28 : 8 75 RUN OCT. 1 : 69 
OCT.29 : 8 COBE/0CT. 13275 OCT.2 : 99 
007.38 : 32 RUN OCT.3 : 43 
nr 31:68 COBE/OCT. 14-32 OCT.4 : 78 
1 ou 0 (F° de PISTE) & R/S ut RE OTSEES 
taper le N° de REC  & RJS COBE/OCT.15=63 OCT.6 : 99 
s es OCT. OCT.7 : 32 
+ IMPreseion de D suivi des 16 nd RUN OCTL8 : 32 
CAR d'une ligne & de : avec DLIGHE #HAUT OK 7: OCT.9 : 32 
IMPression et affichage des G+ AT OCT.18 : 224 
N°8 dee Octetse correspondante. % RUN oCT.11 | 64 
(-Proposition de Rectification MR RSUE ocT.12 8 
éventuelle (nouveau Listing ® 16.831 QCT.13 : 8 
non possible à ce niveau) : OCT. 14 : 8 
R/S pour passer à la ligne suivante OCT.15 : 6 


R (KEY 52) pour Rectification éventuelle ou KEY 44 
S}-Taper le N° du ler. Octet à Rectifier & R/S 
Taper le CODE DECimal à introduire dane l'Octet indiqué & R/S 
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DIR-UTILITY 








32 64 96 128 160 192 224 NOM du FICHIER 128 
33 65 97 129 161 493 225 d° - 0 











0 

L  — 

2 34 66 98 130 162 194 226 - -d°- 0 
d 9% 67 999 ISL A6%, 195, 227 —. d@ 0 
4 36 68 100 132 164 196 228 - -d° - 2 
5: 7 ‘69 101 133 165 197 229 = = d°- 16 
6 38 70 102 134 166 198 230 - -d° - 0 
7 39 71 103 135 167 199 231 32 128 
8 40 72 104 136 168 200 232 32 0 
9 41 73 105 137 169 201 233 32 0 
10 42 74 106 138 170 202 234 TYPE de FICHIER O0 
2 43 75 107 139 171 203 235 _ -da° - 2 
12 44 76 108 140 172 204 236 0 16 
13 45 77 109 141 173 205 237 O0 0 
14 46 78 110 142 174 206 238 POSITION 0 
15 47 79 111 143 175 207 239 - d° - 0 
de 48 80 112 144 176 208 240 O0 0] 
17 49 81 113 145 177 209 241 0 0 
18 50 82 114 146 178 210 242 Nbre. de REC. 0 
19 51 83 115 147 179 211 243 = 4° N 
20 52 84 116 148 180 212 244 O0 0 
21 53 85 117 149 181 213 245 O0 0 
22 54 86 118 150 182 214 246 0 0 
23 2 87 119 51 183 215 247 0 0 
24 56 88 120 152 184 216 248 0 0 
25 57 89 121 153 185 217 249 O0 0 
26 58 90 122 154 186 218 250 128 0 
QT 59 01 29, 65, 87 219. 252 À 0 
28 60 92 124 156 188 220 252 LONGUEUR 0 
29 (61 93 125 157 189 (221 253 - d°—- 0 
30 62 94 126 158 190 222 254 Particularité(s) 0 
at 63 95 127 159 191 223 255 32 0 


N = Nombre de REC utilisés pour le DIR (N= (XNEWM + 1)/8) 
















TYPE de FICHIER 





10 12 






224 208 DA Données 
224 128 PR PRogramme 
224 26 ST Etate 






224 80 
224 64 


KE Affectations de touches 
WA Mémoire complète 





















0 1 AS ASCII (X MEM) 

255 255 REC disponible pour DIR (%) 
0 0 Fichier "PURGé" 

Autres ?? Type particulier 


(Æ) Dans la limite de 8.N au maximum. 







PARTICULARITÉ 


Sans 

P Privatieé 

À Exécution Automatique 

S Sécurisé 

Combinaison de 2 ou 3 des valeurs précédentes 














Sur la PISTE 1, le ler REC utilisé est le 4. 
La fonction PURGE ne place zéro que dans les OCTETS de TYPE 
mais on ne doit pas trouver "S" dans l'OCTET de PARTICULARITÉ. 
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prgm “"FULDIR" 
















































































































































































prgm "RECED" 
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| ju Lo 
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N 
IN 
ma s 
= 
= 













































































nn 
27 WA rl 

















28 
28 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
4i 
42 














il il 


MN MEN _ 




































ae 3m “FULD 

47918 

31:185.189 

32:189.194 

33:195,282 

34.283,20 
22:127.133 21:129,136 
231133. 138 22:137, 142 
24:129,146 23:142.148 
25:146.158 24:148,156 
26:156.156 25:157,164 
27:156,163 26:164.169 
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DEC-BIN 


PHILIPPE HEILBRONH 






6, RUE FURSTENBERG 
75006 PARIS 





PARIS, le 14 Juillet 1986 
Monsieur Jean-Daniel DODIN, 





MICRO-REVUE 
77, rue du Cagire, 
31100 Toulouse 


Cher Monsieur, 


J'ai lu avec grand intérèt dans MICRO-REUUE No 12, page 
31, l’article de notre collègue Robert SCHWARTZ qui faisait 
suite à celui de Patrick BAEKEN et je me permets de noter 
ici quelques points: 


-On peut remplacer 524288 par 2 19 y°x: gain d'un octet. 
-En remplaçant RCL 00 20 par 20 RCL 00, on peut supprimer 
l'instruction RDN qui suit: gain d'un octet 

-On peut remplacer l'utilisation du registre R 03 par celle 
du registre LASTX. 


Pour ma part, je préférerais au pas 36 APPEND et “.", 
plutôt que APPEND et eSPACE, car cela permet de faire tenir 
sur le ‘display' stabilisé un nombre maximum plus grand, 
l'équivalent binaire de 4095, au lieu de l'équivalent 
binaire de 1023. Voici le programme modifié 





QILBL “BIN" G 4 STO a "N(dec}" PROMPT STO @2 
CLA 2 19 y°x 
13LBL 02 RCL 02 LAsl* - X<@? GTO 00 ‘“H-i" 





LASTX ST- @2 RDN 

23LBL 00 X<07 "F0" 2 ST/L G 00 ‘““ Z@ RCL 00 
X=Y7  PROMPT CL a X#Y? GTO 02 H." 4 STta 
GTO 02 END 















Je crois, comme Monsieur BAEKEN, qu'il peut étre utile 
d'afficher un nombre maximal de 20 bits. Pour pallier 
l'inconvénient du défilement ainsi que celui de i'affichage 
de '0' situés à gauche du ‘1’ le plus à gauche du résultat 
binaire, je propose le programme ci-inclus. Il tourne 
certes plus lentement que le programme d'origine mais 11 
présente l'avantage de permettre l'affichage et l'impression 
des données et des résultats. Si l'on veut bénéficier d'une 
meilleure vitesse, il suffit d'armer le flag © par action 
sur la touche bascule [C]. “BIN" comporte 224 octets 
pistes d'une carte magnétique. Quatre registres sont 
utilisés: RO, R1, R2 et R3. 


“ 






Je vous adresse une carte magnétique et je vous prie 
d'agréer, cher Monsieur, l'expression de mes sentiments 
amicaux et les meilleurs.  HAPPY PROGRAMMING 


pEpet hr 
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CONVERSION DEC-BIN (2Q BITS) 





@OILBL “BIN* 


drapeau de ‘fenêtre! 1 
activer l'imprimante 
inhiber le son 
inhiber mode *USER' 
CLRG - 


imprimer N en base dec 


4 
STO a 
EI 
Y4x 
Y? 


- 1.048.576 


"OUT OF RANGE" 





message 


ssssssese 


LE: 
v4x = 524.288 
placer en LASTX 


drapeau provisoire 
pour ne pas 
afficher 

le témoin de drapeau “1" 


PPC-T No1l4 


Mai-Juin 


71 / 

Q72 1 

Q73 + 

©@74 STO @1 
Q75 32 
@7ELBL 11 
@77 XTOA 
@78 ISG @1 


qe Sel 11 -le cas échéant 


(Affichage sur deux 


entrer RE L 


-EXEQIBIN 


€ 
s 
1 


‘fenêtres"]l. 





cimal 
> résultat 
soit en une fenêtre © 





pit en Z fenêtres @ et 1 
indiquant 


‘indicateur "|" 


que le fenêtre 1 est 
utilisée). 


-Pour un autre nombre: 
entrer le nombre (en 


o8t cHs 
@8Z AROT 
PEL 10 


crasant le résultat 


obtenu précédemment ). 
SEE 55 -[R/S] 


Registres utilisés: 


RO, RI, 


R2, R3 





DRANCOBHINNRANLSS 


œ 
œ 
s 


1987 


inhiber l'inprimante 
activer mode USER 
Affiche fenêtre "O* 


Affiche fenétre "1" 


Bascule (indicateur @): 


affiche/n'affiche pas 
les zéros de gauche 


Philippe Heilbronn (PPCT-551) 
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HCCD 


PHILIPPE HEILBRONH 


6, RUE FURSTENBERG 
75006 PRRIS 


PARIS, le 5 Août 1986 


Monsieur Jean-Daniel DODIN, 


MICRO-REVUE 
T7, rue du Cagire, 
31100 Toulouse 


Cher Monsieur , 


Je vous prie de trouver ci-inclus un programme "Codes 
Héxadécimaux des caractères - claviers HP et module CCD" 
CHCCD). Ce programme m'est souvent utile. J'y joins une 
carte magnétique (une piste utilisée), un listing de 
contrôle et un exemple d'utilisation 


Amicalement vôtre et à bientôt. HAPPY PROGRAMMING. 





dhfhiun 


Philippe Heilbronn (PPC-T 551) 


Du O clavier HP+CCDmod vers les codes HÉXA 





11 arrive que l'on ait besoin de connaître les codes 
héxadécimaux correspondant soit aux caractères du clavier HP 
soit aux caractères du clavier module CCD. 


En général, on peut obtenir ces codes à l'aide du 
module X/Function: placer le caractère dans le registre 
ALPHA, puis ATOX --> code décimal, à convertir en héxa, soit 
par programme, soit à l'aide du module Advantage. Une autre 
solution consiste évidemment à emporter avec soi la table de 
correspondance "caractères <€--> codes héxa'... 

Le présent programme permet d'afficher en clair le(s) 
codes(s) correspondant à une entrée au clavier de un à six 
caractères. 11 nécessite la présence du module X/Function, 
du module CCD et éventuellement d'une imprimante. 

L'excellente fonction DCD du module CCD permet de 
décoder la valeur en X. Cependant, la fonction présente à 
mes yeux deux inconvénients dans l'affichage du résultat: 
défilement (à cause de la présence de 14 digits -nibbles) et 
manque de ponctuation. On peut supprimer Le premier 
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inconvénient en éliminant les nibbles 13 et 12 à l'aide de 
la fonction ATOX (lignes 29 et 30 du programme) et le 
deuxième inconvénient par l'introduction de points (.) 
séparateurs (lignes 47 à 58 incluse du programme). En 
outre, le résultat est rendu plus lisible en supprimant les 
zéros inutiles situés à gauche de l'affichage (lignes 31 à 
46 incluse). 


Le programme comporte 111 octets et tient donc sur une 
piste de carte magnétique. Il utilise le registre R @0. 


Codes Héxadécimaux des caractères-claviers HP et module CCD 





@O1LBL “HCCD" O31LBL @1 Eliminer les zéros 
202 ROFF ©32 48 inutiles de gauche, 
@03 CF 21 @33 ATOX mais conserver les 
@04 ASTO @0 @34 X=Y? zéros des codes de 


005 VIEW @Q Pendant la durée du 035 GTO @1 caractères les com- 
@06 FC? 55 pragn, afficher les ©36 XT0A portant (soit à 








007 GTO 1@ données, mais ne pas 037 -1 gauche, soit à 
008 SF 21 les imprimer avant  ©38 AROT droite) comme, par 
009 ALENG de les adapter 039 ALENG exemple: 

010 E3 {lignes 009 à 024) 40 2 CODES: 
@1t / @41 MOD === 
@12 E 042 X-07 a 04 
013 + Compteur en X 043 GTO @2 € 40 
OIALEL 09 044 ": 

o15 32 045 -1 

Q16 ACCHR 246 AROT 

@i7 ATOX Q47LEL @Z Ajouter les points 
O18 ACCHR 048 ALENG séparateurs (.) 
019 46 049 2 E3 

@20 ACCHR 950 / 

@21 R° 051 € 

@22 IS6 X 952 + Compteur en Y 
023 GTO @9 053 2 Zen x 
024 PRBUF OS4LBL 03 

OZSLBL 10 55 AROT 

026 CLA 956 “i-," 

027 RCL 00 057 166 Y 

28 DCD en X: 14 nibbles 058 GTO 03 

029 ATOX éliminer les nibbles 059 RCL 00 Remettre en X 
30 ATOX 13et 12 060 AON les données 


@61 AVIEU Afficher le 
@62 END résultat 


111 BYTES 


MODE d'EMPLOI: 
“aller en début de prgm [f1[GTO] HCCD 
se mettre soit en mode [USERI: caractères HP (shiftés où non) 
soit pas [USER]: “ CCD (shiftés ou non) 
-LALPHAI entrer de un à six caractères [ALPHA] 
-LR/S] 
-En fin de pran, toggle: 
ren ALPHA: les codes héxadécimaux 
-en X: les caractères donnés 
“Pour un autre calcul, écraser les résultats en entrant le(s) 
caractère(s) dont on veut connaître les codes. 


jet he (rrer-553) 





( Suite page 58) 
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TEL 


Ce petit utilitaire prend en X un nombre entier 
à 8 chiffres et le renvoie en ALPHA au format d'un 
numéro de téléphone (en utilisant / pour séparer les 
chiffres par groupes de 2) 


Exemples : 


91.346.977,84 +++ 
91/34/69/77 

36.139.155,88  s++ 
36/13/91/55 


On pourra l'employer, par exemple, dans un 
programme de gestion d'agenda. Son utilité vient du 
fait qu'il est plus facile d'entrer un nombre en saisie 
numérique plutôt qu'en mode ALPHA (qui oblige à shifter 
chaque chiffre). 


Inversement, la lecture d'un nombre en tant que 
numéro de téléphone sera facilitée en groupant les 
chiffres par 2, 


B1eLBL “TEL” 

FIX @ CLA 1E8 / 

B6+LBL 81 

LE2 + INT ARLRK 

LASTX XEQ 88 “+/" Rt PIERRE BARTHELENY 
Rt - CHS X+87 GTD 81 12, SQUARE HOPKINSON 
KEQ 88 AVIEH FIX 4 13884 MARSEILLE 
RTH T-659 
246LBL 88 s 
ALENG { - AROT ATOX 

EXD 
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PENDU 


Il s'agit d'une version du jeu du pendu avec 
l'imprimante HP 82143 A. 


On joue avec des mots de 5 lettres qui se trouvent 
. dans le fichier MOTS du type ASCII en X-Memory. 


Le programme commence par demander un nombre au 
hasard (entre O et 1) qui lui permettra de tirer un mot 
dans le fichier. 


Il boucle ensuite en demandant le mot proposé par 
le joueur et en inprimant en réponse les lettres bien 
placées. 


B1#LBL “PENDU- 
REQ “INIT“ XEQ “RANDOM 
KEQ “GETFICH* 


45eLBL 88 

XEQ “PROPO* KEB -TEST" 
FC? 88 XEU “AUCUN” 
GTO 88 


118LBL *IHIT* - 
“HBR SOURCE 2" PROMPT 
STO 83 6 SKPCHR 
“PENDU SF 12 CF 13 
ACA PRBUF ABY RTN 


246LBL “RANDOM 

RCL 83 9831 #* ,211327 
+ FRC STO 83 x)Y? 
RTN # INT 1 + RIN 


39LBL “GETFICH" 

RCL 83 188 + 3 / 
INT 1 + “MOTS” 
SEEKPTA GETREC ASTO 49 
RTH 


S3eLBL “PROPO" 

CF12 CF 81 AD 
“PROPO 2?" AON  TOHE 9 
STOP ASTO 81 AFF 
SF 12 PRA ALENG STO Y 
S KeY? KEQ “ERREUR 
FS? 81 GTO “PROPO* RTH 





73eLBL “TEST" 

CLA ARCL 88 ASTD 84 
ASTO Y CLA ARCL 81 
ASTO X X=Y? 

GTO “CAGNE” 1,885 
STO 82 CF 88 


864LBL 81 PIERRE BARTHELENY 
CF 82 CLA ARCL 84 12, SQUARE HOPKINSON 
ATOX ASTO 84 STO Y 13884 MARSEILLE 
CLA ARCL 81 ATOX T-639 


ASTO 61 %X=Y? XEQ -BOH- 
FS? 82 GTU 82 95 
ACCHR 


183eLBL 82 
ISG 82 CGTO 81 PREUF 
RTH 


188+LBL “AUCUN* 
CF 12 “AUCUN* AVIEN 
PSE CLD RIX 


115LBL “GAGHE* 
ADV BEEP “CAGHE* 
AVIEN  STOP 


1219LBL “ERREUR 
CF12 TOKE! 

“5 LETTRES SP PRA 
SF 81 RTN 


128eLBL *BON* 
ACCHR SF 98 SF 82 RIN 
END. 














OVERLAYS 


L'instruction GETP du module X-FUNCTIONS permet, 
lorsqu'elle est utilisée à l'intérieur d'un programme, 
d'implémenter la technique des overlays (ou recouvrements) 
telle qu'elle est connue des utilisateurs de BASIC MICROSOFT 
(instruction CHAIN) ou de TURBO PASCAL (déclaration 
“overlay procedure") 


Soit un programme principal (MAIN) et un module OVL 
de ce programme. 


MAIN se trouve en mémoire centrale en dernière 
position et OVL se trouve en mémoire d'extension, 


Pour appeler OVL à partir de MAIN, l'exécuter et 
reprendre l'exécution de MAIN, on fere : 


GLeLEL “HAIN- 
82 “MAIN 

93 AVIEN 

84 PSE 

85 CLD 

86 “OL" 

67 GETP 

88 ASTO x PIERRE BARTHELEHY 
89 XEQ IND x 12, SQUARE HOPKIHSON 
18 “OV 13884 HARSEILLE 

11 PCLPS T-659 


12 END 


B1eLBL “OVL 
82 “OVL* 

63 AVIEN 

84 PSE 

85 CLD 

86 END 
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MODULO 





Dans son livre "Enter", Jean-Daniel DODIN propose 
un programme de remplacement de la fonction MOD pour les 
HP 11 et HP 15 (IV.1.3, p.66) 


B1eLBL “NODD* 

KOY ENTERT ENTER? Rt 
2 LASTX RDK INT Rt 
+ - EN 


Il y a plus court avec un autre algorithme : 


81eLBL “HODB- 
/ LASTX XOY FRO * 
EXD 


Et il tourne aussi pour les HP 10 et HP 12 


PIERRE BARTHELENY 
12, SQUARE HOPKINSON 
13884 MARSEILLE 

T-659 
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(HP-41 + ADVANTAGE PAC) 


Le programme transforme la matrice spécifiée en ALPHA (ou la matrice 
de travail si ALPHA est vide),en la matrice identité. Les éléments 
précédents de la matrice sont perdus. 

La matrice à transformer devra être carrée de dimension quelconque. 


MATRICE IDENTITE D'ORDRE n : 


La matrice identité est une matrice, dont 


1 
a 
a 


tous les éléments sont nuls, sauf ceux situés s 
sur la diagonale principale qui sont égaux 


à l'unité. 


La dimension de la matrice est carrée. 


a. 


Avant exécution, le nom de la matrice devra être dans le registre 
ALPHA .Si ALPHA est vide la matrice de travail sera sélèctionnée. Le 
ne crée pas la matrice, celle-ci devra être préalable- 


programme 


ment définie, sa dimension carrée étant d'ordre quelconque. 


Aprés exécution la matrice nommée est la matrice identité. Le regis- 
tre X contient la dimension, Y,Z,T demeurent inchangés, L contient le 
X(avant exécution). Le programme n'utilise aucun registre de 


précédent 
données . 


REMARQUE : 


Le drapeau F1S est positionné 


tion des pointeurs: 
Désarmé: Les pointeurs de ligne et de colonne sont sur un élément 


Armé: 


PROGRAMME : 
LIGNES 

21 

22-93 
24-05 


26-29 
19 


11-12 


13-19 
29-22 


"MID": 


quelconque de la matrice. 


après chaque instruction de manipula- 


Un des pointeurs est sorti des limites de la matrice. 


COMMENTAIRES 


Programme “MID",matrice identité. 

Vérifient que la matrice est carrée, et préser- 
vent X dans LASTX. 

Initialisation des pointeurs 1 (ligne) et J ( 
colonne), sur le premier élément de la matrice. 
Boucle de mise à zéro de tous les éléments. 
Initialisation des pointeurs I et J, sur le 
premier élément de la matrice. 

Introduction de 1, sans perturbation de la pile 
Boucle de mise à 1 des éléments diagonaux. 
Calcul de la dimension sans modification de la 
pile et retour. 


48 Octets ; 1 Piste magnétique. 


BOY Frédéric ____PPC-T 697 
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miel 


HLET 
S1GH 


Dé+LEL A 
97 MEF+ 
As FC? 

92 GTA 

18 MSIJ 

11 CLYX 

1% Æ 
13+LBL #1 
14 MS 

15 1€ 

16 FC? 14 
17 + 

13 FC? 1 
19 GTO 1 
29 CLY 

21 DIM? 
22 END 














Decodage alpha 


DECODAGE ALPHA _ : 


CHP-41 + X-F ) 


Le programme "DCA",permet de décoder le contenu du registre ALPHA, en 
visualisant les caractéres sous forme de code ASCII (en hexa) . Tous les 
symboles affichables sont pris en compte, y compris les nuls 


La routine détruit la pile, mais n'utilise pas de registres de données. 
Elle fonctionne donc correctement en SIZE 000 . À l'exécution, ALPHA 
contient la chaîne à décoder, au retour les codes hexa sont dans ALPHA. 


11 y a cependant quelques limitations à respecter 
« Le programme utilise 1 niveau de sous-programme 


* Si la chaîne à décoder comporte plus de 12 caractères, seuls les 
12 premiers seront effectivement décodés et un BIP indiquera en fin 
d'exécution que la limite a été atteinte . 


Ce programme est particulièrement utile, pour le décodage de données pro- 
venant des registres d'état (RCL c est souvent sous la forme d'une 
chaîne ALPHA ), ou du PPC-ROM ( qui préserve les NNN sous forme ALPHA ). 


ATTENTION _: 
Dans le cas des registres d'état, le premier octet, qui force la chaine 
ALPHA est de la forme 1X ( en hexa ), le digit X n'est pas visualisé 
par “DCA" 





Exemples : 
"DCA" dévoile ici l'état de la configuration 
courante de la HP-41 (Registre c), mais sans 
s le premier octet, de la forme 1X . 
Rejet x 


EC LC: 





BOALLAICEGEN 


PRAI “DCA" traduit dans cet exemple le registre 
ALPHA en codes ASCII hexadécimaux .Cela per- 
met de se remémorer certains codes 


AB+12 
ED nc" 
FER 
4142403122 


Dans ce cas, l'affichage ALPHA est constitue 


PRA de “patés" (ou ‘’novas"”) indéchiffrables 
#£orr "DCA" permet de reconnaitre les caractères en 
XEG “DCA‘" donnant leur code ASCII . La table des codes 
: PRü plastifiée fournira alors leur représentation 
3FIEX485S56 sur l'imprimante . (Utile si celle-ci est 


absente !) 
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pe 


28 


29 


12 


12-18 


19-26 


27 


28-39 


31-34 


35 


36-49 





Programme “DCA" 


BOY Frédé 








Commentaires 
Programme "DCA" 


: c, 
Préservation des 12 premiers carätères et des- 
truction des autres . 


Initialisation du compteur de boucle, au nombre 


effectif de carâtères . 
Boucle principale 


Nombre de caractères avant traitement (pour la 
détection des nuls ) 


Saisie du code ASCII décimal du caractère le 
plus à gauche de ALPHA 


Conversion du code ASCII en hexa et ajout de ce 
code au contenu de ALPHA 


Si le nombre de caractères + 1 de la ligne 19 
est égal au nombre de caractères dans ALPHA 
alors aucun nuls n'a été détruit .(GTO 33) 


Sinon, le registre X contient le nombre de 
nuls à ajouter à ALPHA . 

Ajout de X codes "29" à ALPHA . 

Décrémentation du compteur de caractères de 

la ligne 98, et traitement du caractère suivant 
si il existe ! 


Le registre ALPHA a été entièrement décodé, 
retour au programme appellant . 


Sous-programme de conversion DEC->HEXA sur 1 
digit .Le nombre à convertir (en X), est donc 
compris entre 9 et 16 (décimal) .Le drapeau 19 
est levé si ce nombre est supérieur ou égal 

à 19 


85 octets ,1 piste magnétique 













B1+LEL 
8z 
CE 
G4 
as 
56 


"DCF 


ASTC # 
ASHF 
ASTO 
CLA 
ARCL * 
@7 ARCL Y 
A8 ALENG 
D9eLEL A1 
1a ALENG 
11 ATOX 
12 16 

13 7 

14 XEG 45 
15 FRC 
16 16 
17 *# 
XEO = 
15G 
CLK 
ALENC 


GTO 7 
27+LBL A2 
28 "+98" 
29 DSE * 
3A GTO A2 
31+LBL A7 
32 RDN 

33 DSE * 
34 GTO R1 
25 FPTH 
36+LBL 45 
37 CF 19 
38 E1 
39 #<=Y? 
4 SF 19 
41 CLX 
42 48 

43 + 

44 
45 
46 
47 
48 
43 


F 

FS?C 19 
ST+ * 
RDN 
*TOA 
END 
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REDUCTION DE FRACTION 


BOULET.RA T 774 


| je vu pope 2 payamme fes cœhk jou biquel 
de ne jose es avc vu d'ejucvabuh dns À rue. 
IÉ s'ogit de 2 œ (HP4Â ca HP45) de rduckos 


St 





de Packs nutlnt que à je! 


WP: 44 





184%," 
ENTERT 
X4>2 
ENTER 
ef 
Lelot 
Hog 
LASTX 
xX<>{ 
xX+o 1 
GTOO1 
RON 

/ 
x<>4 
LASTX 

/ 


END 
2S OCTETS 


HP-1x-cC 


LeLA 
Fix oO 
ECXx 3 


x 
ENTER 
ENTEAT 
af 
LASTA 

x A 
ENTER 1 
ROW 
PPTL A 
LBtoo 


/ 
CASTX 
xe>Y 
FRco 
x<>Ÿ 


x 
LASTK 
xc>4 


RWD 
ait 
x4#01 
GTooo 
RON 
/ 
x 
LASTX 
/ 
xe>f 
FIX 3 
RTW 
HP 44 HP 1x 
RO > R4 
Lale® — LBlo 
GToeae _; GToo 


Exom pl Cl 2 Prspammes Gausnmt au 4P41) 


382 ENTERT 24 


ns 4 om x dd 147 en Y 
À 


se 
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+ pbbme : mellre 0,218 sous fume de Poches vwmédackies 


a : @218 donc 0,248 ENTERT 1er y" 0,218: 1% 
Æ Gs8 A 500 


x probleme m'°2 (joua ee 4b1x) 


PI ENTERT À *E€0*/° A570 796327 
Soo 000 000 


A540,?+96327 


Ep PER 
AE & ges | pe a Ex Foo 


+ demie romple 
48524 GSBA Fixa S3ode csgA +37+ 


2000 250000 
le Alle a RP mr & frchon mode n'exuhe je 
su Lo machine de à sue 40. Ta fit À some 
A lines, Pub eh EEx3 où EEx4 
dk, ÉEX m, œl s 2 que ba nopbres que 


STE one de ÉTAT ETRE Fes 


ESBA où © 


déie jun Le paginakoe sai je wesub jus la met el je 
Mai fan von mpumule . Je fee qu" Psaait mferesant de 


pub ce 2 frpamme émis dés ratio AU: 
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PURGE 


T334. 
Voici deux petits programmes qui vous pemetiront d'initialiserla memoire étendue, X-F& X-M. 
Considérons le premier, qui place lérideau” à l'adresse HEXA @BE (ligne 51, qui est Le second 
registre d’en-tête du premier fichier de la memoire étendue. Puis ilen altère le contenu eny 
Stockant le contenu du registre € (ligne 6) 
Le reiour à l'éfatnormal sopère a la ligne 7 


1[LbL "mix" 
2/RCLeC Remarques 
3] CLA Si vous exécutez le pgm pas à pas, il est 
41 245,1,105, 11,226,0" recommandé, de ne pas l'abandonner entre les pas 
5, ASTO c &et7 pour ne pas perturberle CAT1. 
6| STO 08 — Ce Pgm est inutile aux possesseurs d'un X-F 
1} STOc révision 1B. (or mcro-kevvE n93) 
8| CLST 

END 


Le suivant un peu plus long,ne fonctionne que pour lespossésseurs d'un X-F sans X-M. 
Il montrera aux débutants comment manipuler et modifiæte contenu d'un registre d'etat . 


1 [LUMIX F" 
127 
RCLe 
CLA 
5°245,11051,226,8 ° 
ASTOc 
CLA 
*247,32,1900,0,11,208,0" — 
= 
18 |AROT 
X#2Z 
XTOA — place 427 comme oclelns4 
RCL M 
XS00 + shekage de code 
15 |xsz 
STOc — relour à l'ébatimbal. 
CLST 
END 





—+ Pc ke rdeo en OBE 


Codage dv second regishre d'en-béle sous la êrme 
2R,BA,OO,00,RR,RS,SS (voir hole) 
— la rchhen supprime lécht nt 4 quiest nol 


Note: L 2° Signal on chier le chmeis | lpestéhe remples per 3 ou par 4 


Mt lchesse sole de second registre délits. 
RRR est l'adresse du regihe @ cours. 555 est la bille do fichier. 
Bibliographie 
© Extended Fonctions Made Easy par Keïfh Jarett 
‘Au Fond ce le HP44° par TD. Doom 
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Miquel de Sibosine ; TELSPACE SA. T-E/2 
9, Cheprin A 2% 


PS 00 Cerg 
| Cocec place. cor PpNed fret. HP-41e, os. 
Aités eccr ct dsa Out AL : SELS 


GP 100 À oneerca A'‘uire anahplislionrr SICRPEZ. Ca 
AP-IL, Eor files cle orcoslila APITL., _Zz 
LP -41 C0 Ourin ÉD Prrcoprin A orcopglee le X-FUNETUICNS. 
L'lopcacerllr ose «24 fitogiammenti ocecsue TT OLA Ce 
cerrLrakr. 


Le Prseprrilr fee gr eomonce , P£ee (ones Laceccbt4 = 
mebz Phlscnast; vrais je nee Joan pose ds ts -. J 
Fosctornre {Le Lharcez “or oroûta Canaeldre, de ecgrer 
ET ÆLorklys PCC COMAHIE AGEN pros APPEL acc 


com à corp ler 4e d'un TT Peer 
SX ZT - eee pre . 
ges change les y Pire Éers of uern< 
ecgres BE faia = te Mycs 


Pt cre 
odétirée Ccoprrinesñ SE J  XEÆQ PE. Cee 
Gong pis) pese KES plc: Eee 
oeperilz, Ccccesreeclur clercs ester RH — 
ue, ose El = LIT LILITCR. OR er ee 
—Lur sr Core Aires gps : C'épeprohscgpr LAIT Ce 
Clemchés pan TEBUR Le ae X, Y al TL Agrce— 
So jean À'értcuteyer 2e PE; Z a T lerae). 


CHPERCA a 0 
ere pt Le 7 M D 


£, ad LAC fer A) Z' est corcôerse os X af-T ant ar Aer, 
de Corrpee tb" cer cd jhfe frere ke, ! A À 
Pcopeclre lo Colprpnctt, ah à 7 éppccascr 2€e 
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@iLBL "PCC" 
@2 RCLFLAG 
Q3 K<>Y 

@4 FIK @ 
@s CF 29 
@€E CLA 

Q7 16 

@8 XTOR 

22 RDN 

19 ja 

11 Hey? 
12 GTO ga 
13 CLX 

14 ARCL X 


1SLAL aa 
1€ RDN 
17 ARCL X 
18 ACR 
FS'CLA 


24 KC>Y 


21 STOFLAG 


22 RDN 
23 RTN 
24LBL 
25 - 
26L8L 91 
LASTX 
+ 


XEQ 
RCL 
ACX 
RDN 
ISG 0@ 
GTOQ @1 
PREUF 
RDN 
END 


MIRT" 


"pCC" 
IND #8 





(vite de /2 page 46) 


4. 
2A. . 
2, 8. 
2F.30.2€. 





HP non 





Ye F 
59,5.30.3F, 





3h28 


CCD shift 















FE 4 
1F.20,38. 





PRP ** 


BIeLBL “HCCD” 
AOFF CF 21 
VIEN @8 FC? 55 
SF 21 ALENG 

+ 


STO 58 
Srû 18 
RE / E 


14eLBL 63 

32 ACCHR ATX RC 
46 ACCHR Rt ! 
GTO 49 PREUF 





256LBL 18 
CLA RCL 88 DCD ATOX 
ATOX 


31#L8L 81 
48 ATOX x=v? GTO 0f 
RTOR -1 AROT ALENG 2 
MOD Xx=8? GTO 82 “+” 
-1  AROT 


47LBL 62 
ALENG 2E3 4 E +2 
S4eLBL 83 

AROT 
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LISTING de *CB* Continuoue Duame pecr 89 ? 1 
































Bt ee 
94 LEL"CO"  xEQ 13 ERREUR RCL 12 RCL 06 Hpnc. FCLEr. 
CF 27 2 xEQ 21 - * 
CF 28 STO 00 GTO 26 CHs cHs # POUTRES CONTINUES * - Calcul des moments de 
CLRG 1 LEL_ 27 STO 29 STO 40 Tr rs 
CLST STO 49 RCL 51 LBEL 22 ACL 33 continuité aux eppuis per 1s méthode de CROSS, 
FIX 0 XEQ 14 11 PATIENCE REL 34 
S1Z€7 XEQ 14 XV? XEQ 21 & ss 
52 XEQ 14 XEQINO 51 21 ACL 10 
XmY?7 BL 75 RON STO 46 . 
10 GT0 98 50 es 90 12 130 XEQ 54 470 che Matériel à HP41C - Quad Memory - X Functione® 
PSIZE  sy0 30 XmY? STO 31 STO 41 # non absolument nécessaire, dage ce case euppriner 
L8L_98 STO 31 XEGINO 51  XEQ 34 RCL 33 les lignes 7 à 12 et faites le "Size 52" classique. 
1 TRAVEE? TONE 9 STO 30 RCL 34 
ST+ 00 XEQ 21  OmKN7M? XEQ 34 + Unitée_employéves 
Le 4 1-2-3-47 PRoNeT 102 RCL 07 - longueurs 4 mètre linéaire 
PROMPT STO 13 XEQ 34 . ï ô 

ARCL 00 XEGINO 51  STO 32 « charges répartices + kilo-neuton per mètre linéaire 
S10"S0 cHs - sherges concentrées # kilo-neuton 

+? 4 LEL_87 XEQ 34 STO 42 | 

u Te - moments + kilo-neuton mètre 
PROPT Pre AUTR DONNEE? STO 35 RCL 35 LEE ré Rt Ste 
20 STINO 00 60 x€=Y? 100 XEQ 17 140 XEQ 34 180 ACL 36 D ee PE Te, 

RCL 00 © GTo 73 XmY? STO 3 4 Particularitéss 

4 ERREUR GTO 75 KEQ 54 RCL 11 

Xmv? XEQ 21 EL 20 STO 37 . = 42 cas de chernee différentes peuvent Btre traités 

GTO 99 GTo 75 45 XEQ 34 CHS - l'ordre de treitement des cas de charges st des 

GTO 98 LL 73 STO 49 STO 36 STO 43 travées est {ndifférent, 

LBL 99 © ACL 50 44 RCL 30 RCL 35 - Pour chaque ces nécessitant l'introduction des 
TONE 9 2 STO 4 ACL 05 ACL 36 données “a”, "D", "c", vérification interne que 
PEN A" e 5 e + le somme correspond bien à "L", si non, retour à 

XxEQ 33 42 STO 4 cHs RCL 08 le ce e départ avec ls mot "ERREUR" apparaissent, 

30 ST 05 70 + 410 22 150 STO 38 190 » ‘Bien que ce programme ait pour base les ESS 

TONE 9 — sr0 00 STO 46 ACL 31 cHs (British Standard Specifications) 11 set valable 
MEN €” LEL 26 XEQ 19 RCL 32 STO 44 elen les normes françaii 

XEQ 33 TONE 9 XEQ 19 + ACL 37 

STO 12 cas sa 12? XEQ 19 ACL 09 ACL 12 noxeex es 

1 PROMPT ACL 14 ° e 

ST0 00 STO 51 RCL 05 CHs cHs - les moments d'inertie des poutres sont uniformes 
2 42 e STo 39 STO 45 - une même poutre peut racsvoit plusieurs Charges 

.. ST0 49 XoY CHS ACL 31 22 concentrées diversos ou subir plusieurs moments 
XEQ 13 X(=Y? STo 22 RCL 32 ST0 51 différente (positifs ou négatifs). 

49 xQ 13 eo 670 27 120 AEL 21 160 + 200 14 


Page 60 


1987 


Mai-Juin 


PPC-T No14 



























































LISTI.G de "CO Continuous Beams PPCT 89 4 
20 ST- 00 XmV? « RCL 48 
/ GTO 76 GTO 51 Hs x2 
hs LL _08 GTO 77 ST#INO O0 * 
STINO 00 90 LBL 51 1 ACL 47 
1 STO 40 LEL 11 ST- 00 # 
ST+ 00 KB 11 AUTRE MT? XEQ 23 
RON XEQ 40 ST0 51 XEQ 17 1 
°66667  LBL 90 86 XmY? ST- 00 
XEQ 15  XEQ 88 STO 40 GTo 51 AUTRE P? 
410LBL_06 4501 490 K 11 LEL 77 570 XEQ 17 
K6  ST+ 00 XEQ 41 K 127 Xe? 
XEQ 21 XEQ 92 LBL_86 XEQ 17 GTO 12 
RL 13 1 " X=Y? GTO 87 
XEQ 32  ST- 00 ARCL 30 GTO 50 LEL_21 
30 GTO 76 NW? GTO 87 TONE 9 
/ LBL_09 PROMPT LBL 50 AVIEY 
CHs 79 STO 49 5 PSE 
ST+INO 00 STO 40 RCL 46 STO 30 PSE 
1 K9 E LBL 12 PSE 
420ST+ 00 460xEQ 39 300 XEQ 24 540 32 580 RTN 
7 RON L8L_79 ENTER  sro 51  LBL 33 
1,5 XEQ 81 ACL 46 85 XEù 21 
e XEQ 15 RCL 48 STU 40  LIBmi-FIX=07? 
XEQ 15  LBL 10 2 CAS 12 PROHPT 
LBL 32 60 ® XEQ 41 ATN 
RCLIND 50 STO 40 = LBL_85 LEL 34 
x? « 10 ” CS 1 
e xEQ 40 cHs ARCL 30 ST+ 46 
ATH LBL 80 ST+IND 00 xu? RCLINO 46 
430LBL_ 07 4701 510 1 550 PROïPT 590 2 
] ST+ 00 ST+ 00 srg 49 / 
870 4 $F 27 RCL 49 ACL 48 RTN 
«7 XEQ 81 ACL 48 . LBL_13 
XEQ 39  ST+IN0 00 * RgL 4 XEQ 30 
. L8t 71 CF 27 XEQ 24 x 5 
XEQ 92  L8L 76 RCL 46 . ST+ 09 
1 ° 2 XEQ 23 RON 
ST+ 00  STO 30 ‘ 1 STINO 00 
XEQ 88  K 117 ACL 48 T4 00 4 
401 as0xeg 17 520 - 560 ACL 49 600 ST- 00 


LISTING de "CB" Continuous Beams 


























ns 
201 STO 50 XEQ 21 LEL 01 xEQ 21 
36 MTB-0Ce Ki an? 
STO 49 ARœU 46  XEQ 21 PROMPT 
30 XEQ 21 RCL 13 STO 49 
STO 48 ATC-CEm XEQ 32 STO 46 
XEQ 74 ARCL 17 12 STO 45 
XEQ 74 XEQ 21 / bat? 
XEQ 74 RTC-CDe cHs PROMPT 
XEQ 74 ARCL 18 ST+INO 00 STO 48 
210 XEQ 74 250 xeg 21 220 CHS 330 ST+ 46 
7 XEQ 74 “7 MTD-DCe 1 ST+ 45 
XEQ 74 ARC 19  ST+00 cri? 
XEQ 74 xEQ 21 RON PROHPT 
SF 27 MTD-DE es XEQ 15 ST+ 45 
21 aRcL 20  LBL O2 © RCL 45 
STO 46 XEQ 21 97 RCLINO 
LEL 36 PATE-EOe STO 40 XeY? 
1 ARCL 21 K2 GTO 93 
ST+ 4 XEQ 21 xEa 39 ERREUR 
220 30 260auTRE cas? LBL 97 340 XEQ 21 
TT REL 46 7 XEQ 17 XEQ 94 —— GTO 04 
XæY? XmV? 4 LOL 93 
GTo 31 GTO 28 ST+ 00 RL 46 
RCLINO 46 or XEQ 95 x 
et LBL_28 GTO 76 AÇL 49 
KÇDY nets gnses? LOL O3 x? 
X (mv? XEQ 17 , 70 . 
GTO 36 CTo 29 *2Y? ST 40 XEQ 32 
GT0 22 270 GTO CB «3 6 
230 LEL 31 “Leu 29 310 XEQ 40 350 « 
TON 9 TF 27 LBL_ 70 ENTER 
RESULTATS 14.081 XEQ 95 RCL 46 
XEQ 21 ENTER 2 ENTER 
TONE 9 LeË 35 ST+ 00 3 
TONE 9 STI v XEQ 34 v* 
ATAA Be 156 Y 4 RCL 49 
ARCL 14 GTO 36 He : ENTER 
XEQ 21 280 GTO 78 3 
RTE-Bm Lun v 
240 ARCL 18 320K4 3602 


PPCT 89 3 


STO 44 


RCL 48 
e 


RÇL 46 
É 


x2 
370 RgL 49 
x 


RCL 13 
XEQ 18 
380 1 
7 ST+ 00 


RCL 44 
RCL INO5Q 
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LISTING de "CB" Continuous Beams 

















1 TA RTH 
ST0+49 LBL_ 17 LL 74 
RTN XEQ 21 FC? 27 
Let 14 OUI=1-NONe27 RCLIND 
XEQ 30 PROMPT F5? 27 
7 ENTER FC? 27 
STO+00 1 ST+INO 
RDN us RCLINO 
STINO 00  L8L 18 STOINO 
so 6 sr 690 ST+IN0 
te Ne 12 RCLIND 
À / ST+IN0 
ST+ 49 XEQ 23 1 
RTN RTN ST+ 51 
L8L_30 L&L 19 STE 50 
RCLINO 00 2 ST 49 
RCLIND 00 ST+ 49 ST+ 48 
RCLINO 49 ST+ 48 RM 
$ E60 des 47 LEL 94 
620 / ï 200 RGLINO 
RTN ST+ 46 —% 
Let 15 RELINO 49 ENTER 
ST#IN0 00 RCLIND 48 
1 + « 
ST- 00 RCLINO 47 ENTER 
GTO 76 ° % 
RTN cns SUTER 
LL 16 STOINO CU 49 
ERREUR 670 3 ë 
830 Xe 21 SIriaT RCLINO 
1 ° 
ST- 30 ST+ 46 si 
TRAVEE RCLINO 49 
MRCL 50  RCLIMO 48  SUTER 
t= + ENTER 
FIx2 RCLINO RGL 49 
ARCLINO 50 © x 
XEQ 21 cHs : 
FIX O 680 STOINO 4 , 
$4o cromno 51 220 ENTER 


RE ———]—] | 


51 


50 
49 
51 
50 
48 
50 


50 


sa 
280 


d6e 


PPCT_89 
AÇL 49 
É 





ACL 13 

« 

XEQ 18 
RTN 

LL 95 
RCLINO 50 
4 

. 

ENTER 
RCL 49 





XEQ 23 
x | 

ST- 00 
RTN 
LEL_92 


RÇL 48 


ENTER 
3 

vx 

RCL 13 
20 

/ 


RCLINO 50 


/ 


EAÂTER 


LISTING de "CB* Continuous Beams 


5 
ENTER 
RCL 48 
4 

- 
RCLINO 


/ 


- 

770 CHS 
ST+IN0 
RTN 
LEL_ 88 
REL 48 
x2 
RCL 13 
. 

30 
/ 

780 ENTER 
10 
ENTER 
RCL 48 
15 
e- 
RCLINO 


/ 


RÇL 48 
1 





790 
6 
. 
XEQ 24 
+ 
. 
CHS 
ST+IN0 
RTN 
LBL_81 


« 


50 


810 
50 


820 


50 


830 





































PPCT_29 
2 RL 13 1 rte 
+ # ST+ 30 
RCL 49 60 XEQ 21 
3 Fi a 
. xeQ 24  ARCL 30 
+ CHs ba? 
RCL 48 RTN PROAPT 
ENTER L8L 23  STO 48 
3 RCLINO 50 STO 47 
v* 850 x? b 
. / ARCL 30 
RCU 13 CHS Han? 
. ST+IND 00 PROMPT 
60 RTN STO 46 
/ LüL 24 LEL 25 
XEg 23 RELINO 50 51+ 47 
FC? 27 K RCL 47 
GTO 82 / RCLINO 50 
GTO 83  RTN XmV? 
LEL 82  LüL 39 900 GTOIND 40 
1 XEQ 21 XEC 16 
ST+ 00 a="? RTN tac 
GTO 84 PROMPT 903 END traitor ce ces 
LBL 83 STD 49 
T — ST0 47 et 
ST 00 ban? P: 
LBL 84 PROTPT 9268 Cas H°9 g4 négatif 
ACL 48 STD 48 
x2 XEg 25 + ses s 
3 870 LEL 40 4 
. XEQ 21 q dE 
RCLINO 50 as? 71 
RCL 49  PRO:PT Cr T + # 
. STO 48 ER SN 7 
10 8E0 47 
. bei? 
ds Su Las N° 8 33 | 
# xe0 25 02 Cee Navec qi négatif 
: Rs | 
LEL_41 


600 RCLINO 50 © 860 


+ Cas N° 314 q3 négatif 
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7 #CB" Continuous Deame er 8 























CAS 19° 6 
EE 
CAS N° 1 = Q= qL/2 
pue en MAm = QL/15 
Q= qu ME= = QL/10 
PA = NB = -QL/12 
CAS N° 7 
Lens 
CAS Ne 2 Re 
= qa = 
244 
PA = = Qe( 6 L'- À 2 2 
Fiâm = Qb2(5- 4b/L)10L MBe -Qb(10-15b/L #{6b//L2)X /15 
F8 = - Qu2(4t - 32)/12 L2 
CAS N° 8 
Q= qa/2 


sq 





| 
| 
| 
| 
Pam =0a(10-158/1 + (682 ,2)/15 MB= -Qe2(5-4/L)10 | 











e b e CAS N° 9 
CAS Ne 4 és 
3. à u Le 2 2 - 
a - 8 4 
BA = -Qf(s2-02-02) (03-25) 4504 t) ant Pam -Qb7/301? (21 +%5e) MBe -0b/50L 
en = Q{au(e3-25) - s(et-at) Aa? CAS Ne 10 . 
k Q= qa/2 s 
CAS ne 8 1 : | 
as è | mas =00/3012 (10bL+À 502) nüe -ge{/5012 (21 + 30 


ma-q/ie 
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*CS* Continuous Beams ppcT 89 © 





CAS N° 11 
——— 


MAs = Mb(b=2a)/L? 
MBe = Me(2b-a)/L? 





CAS N° 12 





han = Pab? /L? 
MB= = Pab /L? 





SECURITES du _PROGRA. à 

49) TRAVEE? 1-2-3-47 si le N° de través introduit est 
supérieur à 4 "ERREUR* retour casa départ. 

29) si ab ou etbic # L vous verrez apparaître "ERREUR® 


TRAVEE © = 99,8% puis rotour à la case départ am? 


# N° de le travée dans laquelle vous travaillez 
S,#* pa longueur avec deux décimales 


NOTA: Si, lors da l'introduction des données a, st b,, 
se rapportent à M ou P (cas 11 st 12) vous vous ôtes 
trompé, continuez on respectant e,+b, =L mais à Me? où 
P=? introduisez zéro. Puis recommencez correctemcnt 
l'introduction des données, 


Les moments résultante sont donnés à 0,1 KN. s1 vous dé= 
sirez changer la précision (et le nombre de boucles) 
modifiez le pas 225 ,1 du progremmne. 











"_"Continuoue Bsame* 


PPCT 89 


10 








EXT 12,00 À 5,56 

DONNEESs 
PONMSES 
Iravée ABs Cas N° 2 q=10 æ=1,50 bad,50 

Ces N°4 q=15 222,20 be1,10 ©=2,70 

Ces N°3 q=20 2=3,50 b=250 

Cas N°42 Pin20 213,9 bie2,1 

Ca. N°42 P2=108220,5 b2m5,5 
Iravée BCs Cae N° 1 qg=30 

Cas N°42 P1=20 a1=3,0 biw6,0 

Ces N°42 P2a25 @2=5,0 b2m4,0 
Irevée CDs Cas N° 8 q=12 à =8,0 D =4,0 

Cas N° 3 qu12 8 =8,0 b m4,0 

Cas N°44 le20 gimd,5 bla7,5 
Jravée DEs Cas N° 8 qm15 9 3,5 D 4,5 

Cas N° 7 qu15 8 m3,5 D 4,5 

Cas N°44 Ma30 @1m6,5 bim1,5 

Ces N°42 Pe8 12,5 bie5,S 





As extrémité libre : 4 


Es extrémité Pixéé : 
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"C8" "“Continuous Boame" PPCT 89 "1 


PROCEDURE D'EXECUTION 4 


XEQ "CB" 

Lion? 6,00 R/S L2e? 9,00 R/S Lien? 12,00 R/S 
La"? 8,00 R/S 

SOMMET À LiBmt-FIX%0? dene notre ces 4 R/S 
SOMMET € LiBmieF1Xe07 dans notre css 0 R/S 


TRAVEE (par laquelle vous désirez débuter?) 
4-2-3-4? per exemple prenens 2 2 A/S 


CAS 4 A 42? (quel cse traitez veus?) 1 R/S 
Q=KN/M? 30 R/S cenfirme CAS 1 


Nota: pour tous lee cas 1 à 8 HP demandera 84 les ces 44 
et 42 sent à traiter éventuellement. 
Cas A? ouiminone2? 2 R/S Ces 427 ouimi-nonm2? 1 R/S 


Cas 12 (cenfirmation) et=ñ? 3,00 R/S bin? 6,10 R/S 
Notss 84 ai + b1 œst différent de L2, message “ERREUR® 
et en rapart à a1=17, 





PIKN? 20 R/S AUTRE P? ouimi-nenm2? 1 R/S 
Ces 12 (reconfirmatien) a2#? 5,00 R/S b2=ñ? 4,00 r/s 
P2ekKN? 25 R/S AUTRE P? ouimi-nenm2? 2 R/S 


AUTRE CALCUL? œuisi-nenm27 dans natre ces 1 R/s 


TRAVEE ( par laquelle désirez voue continuer?) 

1-2-3-47 par exemple 4 a R/S 

CAS 4 A 127 (la travée 4 comperte les ces 7,812. 
commençene par 8 8 A/S 

OKN/N? 15 R/S Ces 8 (confirmation) sn? 3,50 R/S 

ben? 46,50 R/S Ces 4? (question) ouisi-nonm2? 1 R/S 

CAS A (cenfirmatien) at? 6,50 R/S bi? 1,50 R/S 

MINT? 30 R/S AUTRE MT? (interrogation) eui=i-nonm2? 

2 R/s 

CAS 427 (interrogation) OUlet-NON=?? profitens en 1 R/S 


"CBS "Continuous Beams* ppcr 89 12 


CAS 12 (confirmation) al? 2,50 R/S b1M1? 5,50 R/S 
PI=KN7 18 R/S AUTRE P? OUlmi-NON=2? 2 (non) R/S 


AUTR CALCUL? OUIm1=NONm2? 4 R/S 


TRAUEE 12-23-47 4 R/S CAS 1 A 127 7 R/S 
QekN/M? 15 R/S CAS 7 (confirmation) a=? 3,50 R/S 
b="? 4,50 R/S CAS 147 (interrogation) 2 (non)R/S 
CAS 12? (interrogation) 2(non) R/S 


AUTR CALCUL? OUlmi-NON=2? 1(OUI) R/S 


Maintenant terminez l'introduction des données, vous 


connaissez la marche à suivre. 


Nous arrivons au point où toutes les données sont intro 
duitess AUTR CALCUL? OUI=1-NON=2? 2(non) R/S 


H.P. entame see calculs et vous avertit en vous faisant 
epparaître "PATIENCE" et un Tone , ces éléments sont 


renouvelés à chaque boucle itérative at convergente pour 
les résultats, puis finalement appar ition de $ 


MRESULTATS" 

SHTA-ABm ose 
NAITB-BAm 00 
"MTB-BCæ 
RMTC-CB= 
MATC=COns 
WATO-DCæ 
RATO-DE= 


RMTE-ED= 
« 
SAUTRE CAS? 


ROUI=1 NON 2 7" 

2 R/S extinction de HP 

1 r/s 

“NEMES BASES? (mêmes longueure 
BUI=1-NONm27 

2 R/S on repart du début 

1 R/S on efface lee mémoires 44 à 51 et 
MTRAVEE® "422347 * on repart 
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CM GG 







POUTRES 
PLEINES 







flambement 


simple 
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CM 66 


Valeurs des 
coefficients 
d'amplification 
des contraintes 


de flexion. 
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CALCUL DES PIECES COMPRIMEES. 








Justification d'une poutre treillis fléchie 


dans le plan de flambement. 
= PEN Se lambement. 


1) On vérifie les membrures 
= 5 membrures 


Pièces symétriques ou dissymétriques pour lesquelles 
——2"©2""TTs où dissymetriques 


la flexion comprime (a membrure à distance VO 








(S KI14 SK )K m Se 
et si Km'>Km 


1 
[ee Kiel ] Km Le 
vi 


Pièces dissymétriques pour lesquelles (la flexion 


comprime la membrure à distance V1 
— "Ts 3 distance VI 


[een is on] Km’ Fe 








etsi Km> Km' 


US K1- StKt)km Le 
et si Km'=Ÿ0 km 
vi 


SOKI-2) 44 Ke 





Tfz 


2 


Ami le plus grand de ceux qui I=SVoxLG-vo 5 


quise rapportent à VO +S VixLG=-VT 
(tableau flambt flexion ) +1 Vo 
‘iv 
= moment d'inertie de 
la pie cecom posée 


ÀÂms » . ou 
quise rapportent à Vi 
(tableau flambt flexion ) 


<coefficient d'amplification des 
contraintes de compression 
avec : = longueur de flambt. 


de la pièce composée 
26 / | 
8:1425A =)1V% (tableau flambt. fle xio 


rayon de giration 


X Aa 3 
Ca + Aa=âme equivalente 
(tableau AME EQUI VALT] 
contrainte critique d’Euler 

en fonction de À 
MAUR 1,3 
pe > 


1 
F3 
5 Coefficient d'amplification des contraintes de flexion 


compte tenu des déformations d'effort tranchant 
donne en fonction de  }' 


K'te 


seffort tranchant engendre par les charges transver.| 
-sales. 





Seffort tranchant dû à la déformation de flambement 
qui prend à distance z d'une extrémite de la lon- 
-Queur de flambt. {a valeur : 


Uvo 


& 


Ta Li ok 1 +0t(Kt-1) jee cos== 


RÉ: 
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2) On verifie Les treillis 


Les treillis doivent pouvoir résister à un effort 
tranchant égal à T+Tfz 


= limite élastique du S VO section de la 


métal constituant la pièce membrure à distance VO 
: contrainte pondéree de, sv ” à distance V1 

i imple = 
compression simple men 
A = SVO + SVI 
flexion simple au c.d.g.de | LG -VO distance de G 
la membrure de plus faible au c.d.g. de la membrure 
section, à distance W du c.d.g.| de plus faible section. 
G de La section d'ensemble 
de la piece. 


6-f =contrainte ponderee de 





LG -vi ® # 


de plus forte section 
Km Km'= coefficients de flambement 


des tronçons demembrure. HO= LG-VO + LG-V] 
On envisage pour chacune 
des membrures les possibi- | LD1 longueur d'une 


-bites de flambement dans 
Les différents plans, en prenant 
des longueurs de flambement | 1VO moment d 
égales aux distances entre 
noeuds ou points fixes dans 
le plan considéré. Pour chacun| IV1 # Si 
de ces modes’ de flambement| de la membrure Vi 
on détermine un élancement 

et l'on désigne par: 


de 


diagonale 





ertie 
de la membrure VO 





TFLFEX 1 EXEMPLE (1) 





Vérifier Le poteau H:8m. encastré aux deux extrêmites 
avec liberte de translation representé çi dessous 
G-e= 24Kg mm2. Îl est sollicité par un effort pondere 
de compression de 80T et par un effort transversal 
pondere de 3775 Kg. applique en tête du poteau qui 
donne des moments d'encastrement entête et au 
pied de+15 Tm et -15 Tom. 
N = 60000 DAN 
2L50-5 SVO = 38,22 cm2 
| SV1=: 41,76 * 
—# 2L100/10  LG-VO: 26,10 cm 
500 : LG-Viz 23,90 “ 
1VO = 356 cm4 
AVI. P74 
Um = 80 cm. 
SD1= 4.78cm2 
1D1: 459cm4 
UD1: 64 cm 
@ = 3775%k9 
a arti=0 


6re= 24 |=800 


uPN 2004 


38.22 + 41.76 =::79.99 cm2 


261 + 239 = 50.00 cm 
38.22 x ZB.I + LLTÉX 2702 +356+ 171: 50.416,58 cm4 


50.416,58. 251cm. 
1=l0= 8 m. : 31.86 


AME EOUIVALENTE : CAS N°2 
TREILLIS DOUBLE FACE : NON 


Aa: 13x478 80x50 . 4.74 cm? 
64 
SE 
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IFLFLX1-EXEMPLE 





Ggf-_15:100 x 26.10 _. 2.82 K 9m 
S0.L16.58 


















2 

580. : 2621 Kmz=05+06522X262 , 
ge ne 
3822 





Ez= 21000 A 
Km= 1026 


















35.53 Km’:1065 


















25, 19.98.3432 À'2 31.86|/1432 : 38.13 
$1.86 LT 








1 x 21000 
38.132 





14255 _ 14.25 
10.00 








= 142.55 Kg/m m2 









14.25-1 
1625-13 








: 1023 Kt-18257 018 1096 
12.25- 1.3 









LES _MEMBRURES 


ER 


a) membrure V1 comprimee 








fro+t 10 x 1023- 10+ 7.82 x 1.086) ne ) 1065 = 19.17 
: <24,; 
Kg/mn 





SKm> Km' 
alors 





10267 1065 ? non 


km YO Km 1065 260 1026? 1065 <1.12 ? oui 


vi 2390 






-S- 


10(1.023-2) + 7.88x 1082: - 1.28 <24Dan/m m2 


b) membrure VO compri mee 


(10x1023+282x 1086 ) 1026: 19.17<2LDar/m m2 


siKm>Kkm? 10651026 ? oui 


ators 


{ +010 x 1023 - 10-282x1082).2380 1065 - 2-60<24Dap 
26.10 m? 


On verifie Les treillis pour l'effort tranchant maximal 
z:0 


3.14 5021658 


Frs 
8 26.10 


(onozs-nr8noss-1)] =684.27K9 


T+Tfz:3775+ 684.27: LL59.27 Kg 


Effort normal dans letreillis N=_T 
Cosa 


ou? tya:08 arctga= 3866 Cosa:078 


Effort normal dans letreitlis 2259.27 _5 717202 Ko 
0.78 
ct: 5717.02 


ë 3e 21196 TENSION 21196 <24Dan/m m 2 


098 Àr=—84 - 65.3 
EE 098 


2x SET? | 2H ESP 4) 
FT 21000 SX E 


barre com primée 


Kt=(0.5+0.65 


compression: 1.2L2x1196 = 1489 < 24 Dan/mm?2. 
o—=—0 





-6-— 
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INSTRUCTIONS D'UTILISATION 





Nbre de modules :4 


| Nbre de cartes: 


TFLFLX cas n°15 à 18 050 
X1———— 19 — 22 052 
X2 23 — 26 052 
x3 27 — 28 050 
X4 29 — 30 051 
Xx5 3 052 


NOTA':SELECTIONNER LE PRO - 
— 
-GRAMME EN FONCTION 


donnees 

pot commun àtous progrm. 
HP questionne, si par exemple 
EFFORT QKG?'n'existe pas 
dans le cas traite répondre:f 





-charge verticale en DAN 


module d’élasticité du metal 
24-30 -36 DAN/MM2? 


longueur réelle de la pièce 


en cm ? 


-longueur membrure en cm? 





donnees 


9 chaque pram unites 


À 
TFLFLX}2 
3 





TFLEF LX0-1-2-3-4-5 HP 41 


Nbre de pas :754 mini 797 maxi 


touche| display 


TREILLIS 


FLAMBT-FLEX. 
ses 


Données 


RS 
ELASTICITE 
24-30-36 


EZ | 





L POTEAU CM? 
a | 
LMEMBRURE 
CM ? 








TELFLX 0-1-2-3-4-5 


Nbre de modules: L Nbre de pas 754m 


Nbre de cartes :9 chaque prgm. RTS 


section membrure VO en em? 


vi 


message éventuel 


- distance de Ga cdg de la 


membrure VO en cm ? 


- moment d'inertie de la membru- 
re VO en cm4 ? 





vi 


- moment d'inertie de la diago 
nalet en om 4? 


= section de la diagonale 1 
en em 2? 


-valeur de l'effort transversal 
Q en kg ? 





ID1 CML=? 
. 
SD\ CM2:7? 
3 | 


EFFORT Q KG? 


RS 








TL 
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TFLFLX 0-1-2-3-4-5 








HP 41,3) 





TELEFLX 0-1-2-3-4-5 


ds 


HP41( 
































kg au mi. 









message 








Suivant n° du cas 
de données 











cas n°1 
section en cm2 

















longueur en cn 





- dist. du point d'application de 
l'effort Q par rapport à tête 
ou mihauteur du poteau en 


cm? voir page suivante 
Y2T pages uivante 


valeur de l'effort q réparti on 


valeur de l'effort du couple 
en DANM? +ou- 


‘du cas atraiter 


n° du cas traiter 
message éventuel 


éventuel 











1-2-3-4-? 


complément 





diagonale 27? 


diagonale 2? 





foutre 





[RS 








N°. 





| 
Fa _ | 


ë 





LONG D2 


CM= 





À ss: 





Q REPARTI ? 





COUPLE=DANM 


le 





‘ERREUR DE N° 





CAS N° #. 


AME EQUIVALT. 


CAS N°1AL4 7? 


ERREUR DE N° 
CAS N°x%| 





? 

















Nbre de modules:4 Nbre de pas 754 mini 797 maxi Isire Nbre de modules: 4 Nbre de pas 754 mini 797 maxilsize 
T'donnees | : 7 
Nbre de cartes: 9 chaque prom.| °° display Nôre de cartes:9 chaque prym Tee ah display 




















-le treillis est il 


comprimee ? 


cas n°28 











pose su 


-la membrure V1 est-elle 


XX voir page precedente 
—TP290 precedente 


message eventuel 
Message éventuel 


résultats avec moment MTS 


l-section de latraverse en c m2? 
| 


ce 


deux faces parallèles du poteau ? 











; 





= Ï ef 
cases, SEC T 
|-section de latraverse er cm2 7 CM22 ? 
R/s 
cas n°4 SECT 
HR CM2= 7? 
R& 





























TREILLIS DBLE 
FACE ? 
OUI: 1- NONz=2 














RÆ 











V1 COMPRIME ? 
Hour- NON:27? 


R£ 





ERREUR c<L0/2 
DESOLE RETOUR 
DEPART 











RESULTATS 
ro 





MT 








DISSYMETRIQ. 
VI COMPRIME 


Nvi Fo 
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TFLFLX_0-1-2-3-4-5 


Nbre de modules :4 Nbre de pas 754 mini 797maxi size 20 | 


Nbre de cartes : 9 chaque pr3m 





doit être Ge 





selon le cas : si MTa a ête 
calcule 
doit être Le 

-5- 


donnees 
unites 


HPa1 (5) 
touche| display 


VERIF. 2 
N=....DANMM2 


TREILLIS 


TENSION: 
de DAN/MM 2 
COMPRE SSION: 

. DANMM2 


RESULTATS 


egvss 
MTa 


DISSYMETRIQ 
V1 COMPRIME 


NV: Pre 


VERIF. 2 
N =... DAN/MM2 


TREILLIS 
TENSION = 
.…. DAN/MM2 
COMPRESSIO 
DAN/MM?2 





TERMINE 


AUTRE CAS 
OUI: 1-NON: 27 





JFLFLX 0-1-2-3-4-5 


HP 41(6) 


Nbre de modules :4 Nbre de pas 754 mini 797 maxi. 


Nbre de cartes: 9 chaque prgm. 


si NON” 


doit être Xe 


selon Le cas:si MTa a èté 
caleule ; 


donnees 
unités 


Î “oui” 
|_ retour debut 


“NON” 

arrêt calculateur 
ESULTATS 

TÉ Poe» 


— [se -DISSYM. 
VB COMPRIME 


VERIF 2 
N=.... DAN/MM2 


TREILLIS 


TENSION = 

DAN/HM 2 
COMPRE SSION 
. DA N/MM2 











RESULTATS 


MTa 
SYM- DISSYM. 
V4 COMPRIME 


NVO=.... DAI 
MM2 


VERIF 2 
N=.....DAN/MM? 
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TELFLX 01-2-3-4-5 





Nbre de modules:4 Nbre de pas 75%mini 797 maxi [size 50e 


HP41(7) 











Nbre de cartes : 














chaque prgm! 








snites |. 


touche display 





TREILLIS 
TENSION = 
ce DAN/MM 2 
COMPRE SS10 
......DANMM 2 





TERMINE 
AUTRE CAS ? 


“oui” 
retour debut 


Non” 
arrêt calculat 








OUI=1-NON: 27 








ELX3- EXEMPLE 


TREILLIS 
LAMET-FLE 
HAN HO 








DONNEES 


POTERU € 
KEMBRURE CH? 
"6=Ch2? 
"1=Cn27 
1-Va=CH? 

i- Vis? 


#8 Ché=T 





#1 CM4=? 
Di 

nt 

“nt ce? 
“FORT @ KG? 
ST à Ce? 


5 N6=26, 


ARE 
CRE à 





% 


TRETLLIS DBLE FACE 
QUI 
V1 COMPRIME? 


RESULTATS 
He MER 


Te 

DISSYHETRIQ. 

VS COMPRIME 
HVI=12,62 DAN/HME 


VERIF, 2 
N=-7,59 DAN/HM2 


TREILLIS 
TENSION= 
9,24 DAN/HM2 
COMPRESSION= 
11,51 DAN/Nn2 


TERMINE 


AUTRE CAS? 
NON 





HP41(1) 
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TELFLX1-EXEMPLE 





TREILLIS 
FLAMET-FLEX. 
ÉCETEE. 


NOMNEES 





ELASTICITEZ4-39-367 

24,48 
L POTEAU CA? 

698,06 
L'HERBRURE CH? 

88,98 
SVB=CRE7 

38,22 
SVI=CM27 


LG-VB=CN? 


171,68 


64,88 


CRE Ng=2l 


V1 COMPRIME? 


RESULTATS 





TENSION= 
11,96 DAN/ 


TEFRMINE 


TELFLX 1- EXEMPLE 





TREILLIS 
FLAMBT-FLEX. 


EE Be 














TREILLIS DELE FACE 
HOK 
1 COnPRIME? 


RESULTATS 
ee ke 





VERTF 2 
N=2,66 DAN/NM2 


TREILLIS 
TENSI9N= 
11,96 DAN/HNE 
CONPRESS IÜN= 
14,82 DAN/HM2 


TERMINE 


RE Ca57 
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BLPLBL “TFLFLKI* 
62 “SIZE 052" 
83 PRONPT 
B4eLBL 59 

95 AOFF 

86 FIX 2 

67 CLA 

88 CLST 

89 CLRG 

18 CF 28 

11 F5? 55 

12 670 71 

13 GTO 78 
1éeLBl 71 

15 SF°21 

ié ETO 63 
174LBL 78 

18 CF 21 

19eLBL 69 

28 5F 12 

21" TREILLIS* 
22 REG 76 

23 "FLAMBT-FLER.* 
24 XEB 76 

25 tkt” 
26 REG 76 

27 AD 

28 CF 12 

29"  RONNEES" 
38 RER 76 

31 AN 

32 “NH DAN=?" 
33 PROMPT 

34 KE 76 

35 STG 81 

36 VIEN * 

37 “ELASTICITE" 
38 “+H4-38-367" 
39 FROMPT 

48 XEQ 76 

41 ST0 62 

42 VIEN #7 

43 “L POTEAU CH?* 
44 PRONPT 

45 XEG 76 

46 STG 83 

47 VIEN x 

48 “L MEMBRURE CH?" 
49 PROMPT 

56 XEO 76 

31 STO 64 

52 VIEN X 
SI4LEL 18 

54 “SV=CH22" 
55 PROMPT 

36 XEO 76 

57 570 85 

58 VIE 

59 *5V1=CH22" 
68 PROMPT 

61 KEB 76 

62 STD 46 

63 VIEN X 

64 RCL 85 

65 X(=Y? 

66 GTG 11 

67 “ERREUR SVR<=SVI" 
68 AVIER 

69 PSE 
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78 GT0 18 
7ieL8L 11 
7e RCL 86 
a+ 

74 STO 16 
75 “LG-V8=CH?" 
76 PROMPT 

77 XEQ 76 

78 ST0 87 

79 VIEN K 

88 “LG-V1=CH?" 
81 PROMPT 

82 XEQ 76 

83 STO 88 

84 VIEN X 

85 + 

86 STO 28 

87 “I VA CH4=7" 
88 PROMPT 

89 KEG 76 

98 STO 49 

91 VIEN x 

92 "I V1 CM4=?" 
93 PROMPT 
94 KED 76 
95 5T0 18 
96 VIEN X 
97 + 

98 ENTERT 
99 RL 85 
188 RL 87 
1gi xt2 

192 * 

183 + 

184 ENTERT 
185 RCL 96 
196 RL 88 
167 2t2 

198 + 

193 + 

118 ST0 21 
tit REL lé 
12 

143 SORT 
114 ST 19 
WsLHc 
116 PROMPT 
117 RE 76 
118 ST 11 
119 VIEN K 
128 "I Di CM4=?" 
121 PROMPT 





qu 





124 
125 "5 D1 CH2=7" 
126 PROMPT 

127 EG 76 

128 ST0 13 

129 VIEK 

138 “EFFORT & KG?“ 
131 PROMPT 

132 KEQ 76 

133 STO 14 

134 VIEN X 

135 “Q REPARTI=?" 
136 PROMPT 

137 REG 76 

138 STO 27 

139 VIEN x 

140+LBL 87 

141 “CAS H819R22?" 
142 PROMPT 
143 STO 15 








Mai-Juin 


144 18 
145 xCY? 

146 GTD 88 

147 GTO 86 
148+L8L 88 

149 23 

158 RCL 15 

151 KCY? 

152 GTO 97 
153eLBL 86 

154 “ERREUR DE N° 
155 AVIER 

156 PSE 

157 GTO 07 
158eLBL 97 

159 FIX & 

168 “CAS H8=* 
161 ARCL 15 

162 AVIEN 

163 ADV 

164 XEQ IND 15 
165 “AME EQUIYALT" 
166 AVIEN 

167 PSE 

168e18L 51 

169 “CAS NB1A47" 
178 PROMPT 

171 STG 25 
172 4 

173 xOY 

174 KEY? 

175 GTO 5û 

176 “ERREUR DE Na° 
177 AVIEH 

178 GTO 51 
179+L8L 54 

189 “CAS Ha* 

181 ARCL 25 

182 AVIEK 

183 PSE 

184 ADY 

185 FIX 2 

186 "TREILLIS DBLE F° 
187 “HAL 

188 AVIEN 

183 “QUI=1-HON=27" 
198 PROMPT 

1911 

192 K=Y7 

193 GTO 15 

194 GTO 16 
195eLBL 15 

196 QUI" 

197 AVIEN 

198 2 

199 STO 26 

288 TO 17 
281+LBL 16 

262 “NON 

283 AYIEN 

284 : 

285 ST0 26 
2864181 17 

287 REG IND 25 
288 RCL 81 

209 RCL 16 

218 / 

ant 

212 % 

213 STO 28 

214 RC 18 

215 RCL 87 

216 * 


Page 76 








a ——_—— 


217 ROL 21 
218 

219 ST 38 
229 RCL 03 
221 REL 19 
222 ! 

223 ST0 29 
224 REL 84 
225 ST0 43 
226 REL 09 
227 ST0 41 
228 RL 05 
223 ST0 42 
234 XEG 88 
23i REL 44 
232 50 
233 RCL 18 
234 ST0 4i 
235 Rüi 86 
236 510 42 
237 #EQ 48 
238 RCL 44 
233 ST 34 
248 REL 16 
241 26 
242 x 

243 RL 29 
244 £t2 
245 

246 REL 23 
247 : 

248 1 

249 + 

258 STO 32 
251 SORT 
852 
253 * 

254 STO 33 
255 xt2 
256 PI 

257 #t2 
258 : 

255 21BGE 
268 

261 14% 
262 ST 35 
263 RL 28 
264 

265 570 36 
266 i 

267 - 

268 ENTERT 
269 RL 36 
278 1,3 
an - 

27e À 

273 STG 37 
274 GT0 13 
275eLEL 13 
276 ROL 93 
27 2 

278 / 

279 ST0 17 
284 REL 14 
281 * 

282 4 

283 / 

284 i 

286 ST 18 
287 RTH 
288eLBL 26 
289 RL 83 















298 2 

291 7 

292 570 17 
293 RCL 27 
294 + 

295 24 
2% / 

297 ! 

298 x 

295 570 18 
368 35 

381 STO 51 
362 RTH 
303eiBL 21 
364 RO 97 
395 510 17 
386 REL 14 
307 * 

388 2 

309 
3i8i 
at 
2 CS 
313 570 18 
314 RTN 
31ñeLBL 22 
316 FCL 83 
317 ST0 17 
ie ktè 
319 RE 27 
329 * 

321 3 

322 

323 

324 % 

335 1 
326 
327 CHE 

328 570 18 

329 RTN 

33866 13 

331 REG IND 15 
332 “vi COMPRINE?" 
333 AVIER 

334 PSE 

335 “OUI=1-NON=27" 
336 PROMPT 

337 ST0 58 

33 i 

339 2=Y7 

348 TO 18 

341 GTO 26 
3424LBL 18 

343 XEG 84 

344 "HT 8° 

345 &E0 76 
FééeiBi 81 

347 "DISSYHETRIQ.* 








RC 
364 RCL 26 
365 + 
366 REL 34 
367 * 

368 STO 39 
369 REL 31 
370 RCL 34 
rt xE=N? 
372 GT 25 
37IeLEL 24 
374 REL 31 
375 REL 87 
376 * 

377 RCL 88 
378 / 

379 ST6 46 
388 RCL 34 
381 Ke=v? 
382 GTO 23 
383 GTO 35 
R4+LBL 25 
385 ACL 28 
386 RCL 37 
387 

388 ENTERT 
389 RCL 34 
398 RCL 38 
391 » 

392 - 

393 RC 31 
344 + 

395 ST0 49 
396 GTO 35 








agi REL 28 

482 * 

482 ENTERT 

dg4 REL 38 

445 REL 3 

486 x 

497 + 

485 ST0 41 
AR9eLEL 35 

418 “NYL=" 

41t BREL 33 
412 *E DAN/HHE" 
413 HER 76 

414 REY 

415 “VERIF. 2" 
416 XEB 76 

417 RCL 49 

418 
413 ET0 36 
428 GT0 38 
4ZL4LBL 36 














348 XE0 76 422 "H=" 

349 “V1 COMPRIME" 423 ARCL 41 

354 XE8 76 424 “+ DAN/MM2" 

35t RCL 28 425 REG 76 

352 REL 37 426 GT0 35 

383 + 427#LEL 38 

354 ROL 28 428 “N=" 

355 - = 429 ARC 43 

356 REL 34 434 "+ DAN/HN2" 

357 RCL 38 431 XEO 76 

358 * 432 GTO 33 

359 + 433eLBL 26 

368 RCL 8€ 434 XE0 86 

361 * 435 “HT 4° 

362 REL 47 446 XEQ 76 

363 / Ag7elbi 87 _{ 
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438 "SYN-DISSYA, 
439 XEG 76 
448 “Va COMPRIME" 
44i XEG 76 
442 RCL 28 
443 RL 37 
444 * 
445 ENTERt 
446 RL 38 
447 RCL 36 
448 * 
449 + 
458 REL 3 
451 + 

452 ST0 K 
453 "NV&=" 
454 ARCL K 
455 “+ DAN/HM2* 
456 KEQ 76 
457 REL 31 
458 REL 34 
459 XV? 
468 GTO 4û 
461 GTB 39 
A62+ilL 48 
463 RL 28 
464 RCL 37 
465 * 

466 RCL 28 
467 - 

468 ENTERT 
469 REL 30 
478 REL 38 
4zi + 

472 - 

473 RCL 88 
474 + 

475 REL 87 
476 : 

477 RIL 88 
478 + 

479 REL 34 
488 

481 STO x 
482 ADY 
483 “VERIF 2* 
484 RER 76 
485 “N=" 
486 ARC X 
487 “+ DAN/HK2* 
488 XE0 76 
489LBL 33 
498 AD 
491 * TREILLIS" 
"492 XER 76 
453 RDV 
494 REL 37 
495 1 

4% - 

497 RCL 28 
498 * 

499 ENTERT 
588 RCL 38 
sai i 

502 - 

503 RCL 38 
594 + 

595 + 
346 REL 21 
307 * 

58e PI 

509 * 

516 REL 17 


PPC-T Nol4 


sui / 

512 RCL 87 
513 / 

S14 188 
515 * 

16 REL 45 
517 + 

518 ST 46 
919 RCL 84 
528 2 

521 / 

322 RÉEL 28 
923 

324 ATAN 
525 COS 
326 RL 46 
87 

528 1/4 
529 REL 13 
538 

sai ! 

532 x 

533 ST0 47 
534 “TENSION=" 
S3S REG 76 
536 ARCL 47 
537 “+ DAN/HMa" 
538 MER 76 
539 ROL ii 
548 STG 43 
541 REL 12 
542 ST 41 
543 RL 13 
J44 STE 42 
545 KEG 98 
546 RL 47 
547 * 

548 STE X 





549 *COMPRESSION=" 


998 &EB 76 

SSL ARCL X 

592 “+ DAN/HHE* 
583 ME 76 

554 99 

555 RCL 51 

556 + 
55 F 
998 GTO 41 
35906 97 
568 RL 18 
561 2 

562 * 

563 CHS 
Sé4 S10 18 
565 ROL 87 
566 * 

367 RCL 21 
568 / 

563 STO 38 
S78 REL 36 
S71 ,3$ 
572 - 

573 ENTERT 
374 REL 36 
575 1,3 
52% - 

377 4 

578 STO 38 
S29 XEG 88 
588 “HT a” 
581 REQ 76 
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562 , 
583 STD 51 

584 RCL 5 

585 : 

586 X=1? 

587 GTO 81 

588 GTO 82 
S896LBL 41 

598 AI 

591 5F 12 

392 “ TERMIHE* 
593 XEQ 76 

594 CF 12 

595 ADY 

596 AD 

597 AD 

598 EI 

599 ADY 

608 “AUTRE CAS?" 
681 XEG 76 

62 “GUI=1-HON=27* 
683 PROMPT 

684 1 

685 X=7? 

686 GT 99 

687 “RON 

685 XER 76 

643 OFF 

6IBeLEL 22 

61i ROL 36 

612 ,35 
613 - 
614 ENTERT 


615 3 











613 STû 35 
628 RCL 27 
621 ROL 83 


622 * 





625 ST0 45 
626 RTK 
6276iBL 21 
688 XEQ 19 
623 RTN 
634eLEL 26 
631 RCL 36 
632 ,13 
633 + 

634 ENTERT 
635 RL 36 
636 1,3 
637 - 

638 / 

633 STO 36 
648 ACL 27 
641 RC 83 
642 * 

643 1 

644 % 

645 ST 45 
646 RTN 
647eLBL 19 
648 REL 36 
649 ,18 
658 - 

631 ENTERT 
652 REL 36 
653 1,3 
654 - 
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655 / 

656 STO 38 
657 REL 14 
638 STO 45 
659 RTH 
668LBL 76 
661 AVIEN 
662 PSE 
663 CLA 
664 RTH 
665eLBL 41 
666 *5D2 CN2=7" 
667 PROMPT 
668 STO 22 
669 “LONG D2 CH=7" 
678 PROMPT 
671 510 24 
672 ENTERT 
673 3 

674 Y4X 
675 REL 22 
676 / 

677 ENTER 
678 REL 11 
679 3 

688 YtX 
68t ROL 13 
682 / 

683 + 

684 :385 
685 + 

686 RL 84 
687 / 

688 RCE 28 
689 at2 
698 : 

691 1/X 
692 RCL 26 
693 + 

694 ST 23 
695 RTH 
696LEL 62 
697 REL 13 
698 ROL 84 
693 + 

788 REL 26 
71 x12 
782 + 

763 i,3 
784 + 

765 REL ti 
786 3 

707 Y4K 
788 ; 

789 RL 26 
718 # 

711 870 23 
712 RTN 
713eLBL 83 
714 “SECT T CH2=?" 
715 PROMPT 
716 STD 22 
717 REL 84 
718 RCL 28 
7197 

728 REL 13 
721 * 

7er 2,6 
723 # 

724 ENTERT 
725 REL 11 
726 3 

727 Y4R 


742 4 

743 X=Y? 
744 GTO 68 
745 RTN 
746+LEL 84 
747 GTO 83 
748eLEL 68 
749 2 

758 * 

751 RL 14 
732 * 

753 ST 23 
754 RTN 
7S5eLEL BE 
756 RL 41 
757 RL 42 
738 

759 SORT 
768 RL 43 
761 7 

762 1/X 
763 àt2 
764 6881155 
765 # 

766 510 48 
767 :65 
768 * 

769 :5 
778 + 

771 50 
Fr htè 
773 REL 46 
774 - 

775 S8RT 
776 REL Ÿ 
Ta + 

778 ST dé 
779 RTK 
788+LEL 88 
781 AD 
782 SF 12 
783 " RESULTATS" 
784 XEù 76 
FES" #HHH" 
786 XEO 76 
287 CF 12 
788 ADV 
789 RTN 
798 “END* 
791 END. 





8teLBL *TFLFLK2" 
62 “SIZE 832" 
83 PRONPT 
B4eLBL 93 

65 AOFF 

86 FIX 2 

87 CLA 

88 CLST 

@3 CLRG 

18 CF 28 

11 FE 5 

12 GT0 71 

13 GT0 78 
4eLgi 71 

15 5F 1 

16 ETÜ 69 
174LEL 78 

18 CF 2f 

1SeLBL 69 

28 5F 12 

21" TREILLIS" 
è2 REG 76 

23 “FLAMBT-FLEX." 
ê4 REB 76 
axtx" 


76 






Ai 
28 CF 12 
29" DONNEES" 





29 PROMPT 
AB XED 76 





41 ST 42 
42 WIER * 

43 "L POTEAU CH?" 
44 PROMPT 

45 HEB 76 

46 ST0 63 

47 VIEN À 

48 "L MEMBRURE CM?" 
49 PROMPT 

5e EG 76 

51 510 84 

52 VIER * 

S+LBL 18 

54 “SV8=CH27" 

55 PROMPT 

56 HEG 76 

57 510 45 

58 VIE X 

59 "Svi=CH2?" 

64 PROMPT 

61 XE 76 

62 STO 

63 WIEH X 

64 REL 85 

65 KC=Y? 

66 GO 11 


67 “ERREUR SVAC=SY1" 
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68 AVIEN 

69 PSE 

78 GTQ 18 
7HeLBL 11 

72 REL 86 

73 + 

74 ST0 6 

75 "LG-VE=CH?" 
76 PROMPT 

77 REQ 76 

78 510 87 

79 VIEH X 

88 “LG-VI=CH?* 
81 PROMPT 

82 KEQ 76 

53 ST0 88 

84 VIEN & 

85 + 

86 STC 28 

87 "I V8 Ch4=?* 
88 PROMPT 

89 XEB 76 

9a STD 89 

91 VIEN K 

92 *I Vi Ché=t 
93 PROMPT 

94 XED 76 

95 510 18 

96 VIEW À 

97 + 

38 ENTERT 

93 RCL 85 

188 RCL 87 

ei xte 

182 * 

163 + 

184 ENTERT 

195 RCL 86 





114 STG 13 

HS “LU Di CHE?" 
116 FROMPT 

117 REG 76 

118 ST 11 

19 VIEN & 

128 “I Di CM4=?" 
121 PROMPT 

122 XEU 76 

123 STD 12 

124 VIEN # 

125 *S Di CH2=7" 
126 FROMPT 

127 RER 76 

128 ST0 13 

129 VIEW X 

138 “EFFORT 9 KG?* 
131 PROMPT 

132 XEG 76 

133 STD 14 

134 VIEn K 

135 “DIST c CM=?" 
136 PROMPT 

137 KEQ 76 

138 STO 08 

139 YIEN & 

148 “a REPARTI=7" 
141 PRONPT 


142 REG 76 

143 STO 27 

144 VIEN K 

145 “COUPLE=DANN?* 
146 PROMPT 

147 XEO 76 

148 570 16 

149 VIEN K 

1594LBL 87 

151 “CAS HO23n26?" 
192 PROMPT 

153 ST 15 

154 2 

155 x(#? 

156 670 46 

157 GT0 86 

198+L8L 68 

159 27 





161 
162 GT8 97 

1634LBL 86 

164 “ERREUR NO 
165 AVIEN 

166 PSE 

167 GTO 47 

1686LEL 97 

169 FIX à 

176 "CAS Na=* 

171 AREL 15 

72 AVIER 

173 av 

174 XEQ IND 15 
175 *AME EQUIYALT- 
176 AVIEW 

177 PSE 

178eLBL 51 

179 “CAS HB 1A4 2° 
188 FROMPT 

181 ST0 25 

188 4 

183 k 
184 x 
185 GTO 54 

186 “ERREUR HO* 

187 AVIEN 

188 GTO 51 

189418 58 

196 “CAS N=" 

191 ARCL 25 

192 AVIEN 

193 PSE 

194 AD 

195 FI& 2 

196 “TREILLIS DBLE?* 
197 AVIEW 

198 “OUI=1-HON=27" 
199 PRONPT 

28 
ei 
282 GT0 15 
283 GTû 16 
2H4eLEL 15 
285 “Oui” 
286 AVIEN 
27 2 

288 STO 26 
289 GTO 17 
218+LEL 16 
211 “NON” 
212 AVIEN 
a3i 

214 STO 26 
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21S4LBL 17 
216 XEQ IND 25 
217 REL 81 

218 REL 16 
219 

228 

221 * 

222 ST 28 

223 RL 18 
224 RCL 47 

225 * 

226 RL 21 

287 / 

228 ST0 30 

229 RL 83 

234 REL 19 

831 / 

232 ST0 29 

233 REL 64 








277 YEB 85 
278 STC 37 
279 GT0 13 
289LEL 27 
281 RCL 83 
282 ,? 
283 + 
284 ST 17 
285 REL 03 
286 5 
287 / 
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288 RL 27 
289 * 
298 RCL 83 


291 + 
292 CHS 
293 : 
294 % 
295 1 
296 * 
297 ST 
298 RTN 
299eL8L 
308 RL 
ei ST 
382 RIN 
3834181 
364 RL 
305 ST 
386 ic 
37 RC 
306 + 
385 2 





312 % 
3143 ST 
314 RTK 


316 RÛL 





319 ST 


322 HEG 
a, J29 MI 








327 
328 STE 
z 
F8 * 

331 GTD 
332 GT 
3334L8L 
334 XEG 


355 


FiSelsi & 





18 


èa 
83 
17 
83 
17 
4 
88 






#3 
END 15 
COMPRINEZ" 





326 "OUI=1-NON=27" 
PRORPT 


5e 





18 
a 





39 







368 PEL 31 
361 RL 34 





362 x(=Y? 
363 GTO 28 
364eLBL 19 
365 RL 31 
366 ROL 87 
367 * 

368 RCL 88 
369 / 

376 510 48 
371 ROL 34 
372 KE=Y? 
373 STû 21 
374 GT0 35 
375+L8L 28 
376 PEL 88 
377 REL 37 
378 * 

379 ENTERT 
38% FCL 38 
381 RÉL 36 
382 * 

383 - 

384 RCL 31 


422 HEO 7 
423 GT0 
4844 EL 
425 HEC 88 
426 “HT 8° 
47 #E 
4284LBL 
429 “SYM-DISSYH. 
434 XEO 26 

431 “V8 COMPRIME" 
432 REG 76 

433 REL 2€ 

434 REL 37 












435 + 

436 ENTERT 
437 RCL 38 
438 RL. 38 
439 * 

448 + 

441 RL 31 
442% 

443 STD x 
CRT 
445 RREL X 


446 “+ DAN/HN2" 


447 
448 RL 31 
449 REL 34 
45 
451 GT 48 
452 GT 39 
4S2eiBL 48 
454 REL 28 
455 Rüi 77 
4e * 

457 RCL 28 
458 - 

459 CXTEPT 
468 REL 3 
RCL 38 














Sea 

595 FEU A7 
586 

587 168 
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588 * 

389 RL 45 
518 + 

911 STD 46 
512 REL 84 
513 2 

St4 / 

515 RIL 20 
Si6 / 

917 ATAN 
— Sis CUS 
519 RE 46 
520 : 

Set 1/4 
522 RL 13 
Sa / 

5e4 À 

525 * 

526 STD 47 
527 “TENSION=" 
528 KEO 76 
523 ARCL 47 
530 “+ DAN/HME" 
531 XE0 76 
532 ROL il 
533 610 43 
534 REL 12 
535 570 41 
536 RCL 13 
537 ST0 42 
538 XEO 68 
539 REL 47 
548 + 

541 STG X 





































543 XEG 76 

544 ARCL X 

545 “+ DAN/HMZ- 
546 REG 76 

547 99 

548 RCL 51 

549 217 

554 GTE 97 
SSt+LEL 4i 

552 AD 

553 6F 12 

534 * TERNINE" 
555 XE8 76 

556 CF 12 

557 ADY 

558 ADY 

559 “AUTRE CAS?" 
568 XE 76 




















562 PRONPT 
563 1 

964 H=Y7 
565 GTO 99 
566 “NON” 
567 XEG 76 
568 OFF 
S69eLBL 25 
578 RL 88 
571 REL 83 
578 ; 

573 1,72 
574 * 

575 CHS 
576 ,25 
ST + 

578 RIL 36 
579 + 

588 REG 85 
581 ST0 38 


























542 *COMPRESSIOH=" 


561 "OUI=1-HON=27" 


582 REL 14 
383 ST0 45 
564 KTN 
SOS4LBL 24 
586 XEO 26 
567 RIN 
S88eLBL 26 
589 REL 36 
598 ,25 
591 + 

592 #E0 85 
993 STO 38 
594 RTK 
S9SLEL 27 
596 RL 36 
597 1 

598 + 

599 XEG 85 
688 STD 38 
681 RCL 27 
682 REL 83 
683 * 

684 ! 

685 X 

686 STD 45 
687 . 
688 ST0 51 
643 RTK 
6ABeLEL 97 
éit REL 18 
612 -,56 
613 + 

614 STO 18 
615 REL 87 
6i6 * 

617 REL 21 
618 / 

619 ST 38 
626 RCL 36 
621 ,35 
622 - 

623 
624 3 
685 RD 












636 RÈL 54 

637 1 

638 #=17 

633 GTO 8i 

648 GTG 82 
GAl+LEL 76 

642 AVIEN 

643 PSE 

644 CLR 

645 RTN 
EAG4LEL 41 

647 “SD2 CM2=7" 
648 PROMPT 

645 STD 22 

698 "LGR D2 CH=?" 
651 PRONPT 

652 STÛ 24 

653 ENTERT 

654 3 


PPC-T Nol4 Mai-Juin 


1987 


Page 


653 YTA 
636 RCL 22 
687 7 

658 ENTER? 
653 RCL 11 
668 7 

661 VTX 
66ë RL 13 
663 / 

664 + 

665 :385 
666 + 

667 REL A4 
668 

669 RCL 28 
678 #t2 
671 

672 1/X 
673 REL 26 
674 * 

675 570 23 
676 RTK 
677+LBL 82 
678 REL 13 
673 REL 8é 
688 + 

681 REL 28 
682 A2 
683 + 

684 1,3 
685 
686 
687 
688 
629 

698 RCL 26 
691 + 

692 
693 
694 
695 
696 











708 Vt 
709 ROL 28 
7183 
iRu 
712 / 

712 ENTER? 
714 ROL 13 
715 REL 22 
716 # 

717 + 

718 / 

719 RC 26 
72 * 

Tei ST9 23 
722 REi 25 
723 4 
724 = 
725 GT0 68 
726 RTH 
Fr+LPL 44 
728 610 83 





82 








729eLBL 66 
738 2 

7ä + 

738 RCL 14 
733 * 

734 ST0 23 
735 RIN 
736LBL 8€ 
737 REL 41 
738 RCL 42 
733 : 

748 SORT 
741 RCL 43 
748 / 

743 1/8 
744 Kt2 
745 ,8881158 

746 + 

747 ST 48 

748 ,65 

745 * 

758 :5 

751 + 

752 ST0 Ÿ 

753 xtè 

754 RL 48 

75 - 

756 SORT 

757 RE Ÿ 

758 + 

759 STD 44 

768 RTK 

761+LBL 88 

768 A 

263 5F 12 

764" RESULTATS." 
765 REG 76 

76 2e 
767 REG 76 

768 CF 18 

763 AI 

778 RTK 

77ieLBL 85 

778 ENTER 

773 RC 36 

774 1,3 

77 - 


716 / 
777 RIN 
778 “END 
779 END. 





æ" 
93 PROMPT 
G4sLBL 99 

65 AÜFF 

6 FIX 2 

87 CLA 

88 ELST 

89 CLRE 

18 CF 38 

A1 F87 98 
12-GT0 ?1 

13 GT 78 
A4eLBL 71 

15 SF 21 

16 GTG 69 
{7elEr 78 

18 CF 21 

ils 65 

28 SF 12 

êi" TRENLIS" 
22 REG 76 

23 "FLANBT-FLES, 
24 HEB 76 






















31 
32 °N 
3 PF 
4 
z 
36 V1 

37 “ELASTICITE" 
38 “+24-30-367" 
39 FROMPT 

48 Xe 
ai 
4 k 

43 QTEAU CN?" 
44 PROMPT 

45 REG 76 

46 STE & 
47 VIEW & 

48 "L HEMBRURE CA?" 
49 PRONPT 

54 REG 76 

51 ST0 64 

5e YIEX * 

53eL8L 18 

54 *Sya=cM27" 

55 PROMPT 

56 KES 76 

57 610 65 

m #? 
59 
68 PROMPT 

61 XEG 76 

62 STD 86 

63 YIEH & 

64 ROL RS 

65 K=Y? 

66 GT 11 

67 "ERREUR SV8C=5V1" 
68 AVIEN 

69 PSE 

78 GT 18 

7iebBL ft 

7e RÈL 46 

73 + 

74 ST0 16 
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7" 
76 PRONPT 

77 KEQ 76 

78 510 87 

79 VIEU X 

88 “L6-VI=CN7 
81 PROMPT 

82 REG 76 

83 STù 88 

84 VIEW * 

85 + 

86 910 28 

87 “1 WA C4" 
88 PROMPT 

89 XEQ 76 

98 STD 83 

gi VIEN X 

ge »1 VL CN4=7" 
93 PROMPT 

94 XEG 76 

95 STû 18 

dé YIEM X 

97 + 

98 ENTERT 

99 REL #5 

188 RCL 87 

181 xt2 

TE 

103 + 

1û4 ENTER 

18 REL 86 

186 RC 

147 #$2 
188 + 
183 + 
Hg 10 21 
it RG 
112 - 
35 
114 
HS "L 
16 
17 
#8 STÛ f1 

119 WIEN # 

128 «1 Di CM4=7" 
181 FRONPT 

122 KEB 76 

123 876 12 

124 VIEN X 

125 "5 Di CH2=?" 
126 FROMPT 

127 EG 76 

128 ST0 13 

129 NIEX * 

138 “EFFORT & KG2" 
131 FROMPT 

132 KG 76 

133 ST0 14 

134 VIEN K 

135 “DIST ç CH=? 
136 PRONPT 

137 KE 76 








136 £TO 48 


139 VIEN 4 

14geLël 47 

141 “CAS HO27A287" 
142 PRONPT 

143 ST 15 

144 26 

145 RC? 

146 GTO Q8 

147 GTO 96 

1486151 06 
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149 29 223 STO 29 

158 RCL 15 224 RCL 84 

151 KCY? 225 STO 43 

152 GTE 97 226 RC 89 

153LBL 06 227 ST 41 

194 "ERREUR DE N8° 228 RL 85 

195 AVIEN 229 STD 42 

156 PSE 230 *XE0 88 

157 GTO 67 231 RÜL 44 

1586LBL 97 232 STO 31 

199 FIX @ 233 RCL 18 

164 “CAS NB=* 234 ST 41 

161 ARCL 15 235 RL 66 

162 AVIEX 236 STO 42 

163 ADV 237 XEQ 08 

164 EQ IND 15 238 RCL 44 

165 “AME EQUIVALT" 239 ST0 34 

166 AVIEN 248 RCL 16 

167 PSE 241 26 

168eLBi Si 242 x 

169 “CAS HG 1f4 7° 243 RCL 29 

178 PROMPT 244 Ktè 

171 STO 25 245 / 

172 4 246 RL 23 

173 XOY 247 4 

174 KC=Y? 248 1 

175 GTO 58 249 + 

176 “ERREUR DE H8* 298 STG 32 

177 AYIEM 291 SEPT 

178 GT 51 232 REL 29 

179eLBL 58 253 

188 “CAS H=" 254 

181 ARCL 25 255 xt 

182 AVIEN 256 

183 PSE 

184 AE 

185 FIK 2 

186 “TREILLIS DBLE F” 

187 “HACE* 

188 GYIEH 

189 “OiÿI=1-NON=27" 

198 PROMPT L 

491 i 

192 x=Y7 

193 GT8 15 

194 GTO 16 268 EKTER 

19SeLBL 15 nu 263 REL 36 

196 “OUI* 278 1,3 

197 AVIEN &7t - 

198 2 27e 7 

199 STO 26 

288 GTO 17 

261eLEL 16 

262 “NON” 276 RCL 83 

283 AYIEN 277 2 

284 ! 278 * 

205 ST0 26 279 STû 1? 

2864LBL 17 288 RC 83 

287 KEG IHD 25 281 REL 88 

288 RCL 81 282 - 

29 RL 16 283 RCL 14 

218 - 284 # 

alt 1 285 1 

212% 286 % 

213 ST0 28 287 ST0 18 

214 RO 18 286 RTK 

215 RL 07 289+LBL 28 

216 * 298 REL 93 

217 RCL 21 at 2 

218 292 

219 ST0-38 293 576 17 

228 RCL 83 294 RCL 98 

224 RL 19 295 2 

222 4 296 + 
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297 REL 83 

298 / 

299 1 

308 + 

31 àt2 

302 ENTER 

363 RCL 86 

304 2 

385 + 

386 RCL 93 

307 / 

348 CHS 

389 1 

310 + 

311 * 

342 RCL 83 

313 * 

314 RCL 4 

315 

68 

317 4 

318: 

19% 

328 ST0 18 

321 #87 

322 F6? 38 

323 RTN 

324 “ERREUR c<LA/2* 
325 XE8 76 

326 "DESOLE RETOUR 2° 
327 “HEPART* 
328 EG 76 

323 fiv 

338 Al 

331 AD 

332 AD 

RDY 

334 GT 99 
33S4LBL 13 

336 XEQ IND 15 
337 “V1 COMPRIME?" 
338 AVIEX 

339 PSE 

340 “OUI=1-HON=27" 
341 PRONPT 
42! 

343 n=V? 

344 GTO 18 

345 GTO 22 
J46eLEL 18 

347 RDV 

348 SF 2 

343 * RESULTATS" 
354 REG 76 
ai" HÉERET" 
352 RE 76 

353 CF 12 

354 AD 

355 “NT 8° 

356 XEG 76 

357 “DISSYMETRIQ, * 
358 REG 76 

359 "V1 COMPRIME* 
368 XEG 76 

Ji RÉEL 28 

462 RL 37 

363 + 

364 RCL 28 

365 - 

366 RIL 38 

367 ROL 38 

368 * 

369 + 

378 RCL 88 














376 RCL 34 
377 * 

378 STO 39 
379 RCL 31 
388 RCL 34 
381 H(=v? 
382 GT0 28 
383181 19 
384 RL 31 
385 REL 87 
386 * 

387 ROL 98 
388 / 

383 ST0 48 
398 RL 34 
391 #=1? 
392 GT0 21 
393 GTO 35 
394+LBt 28 
395 RL 28 
396 RCL 37 
397 * 

398 ENTER 
399 REL 34 
4gû PEL 38 
agi * 

4g2 - 

493 RE 31 
44 + 

493 570 4 
496 GTO 35 
4g7+LBi 21 
498 RE 37 
489 2 

418 - 

4ii PEL 28 
412 * : 
413 ENTERT 
414 REL 38 
415 REL 38 
alé « 

417 + 

418 ST 41 
A41SeLEL 35 
428 “HYi=" 
421 ARCL 39 
422 “+ DAN/HM2" 
423 XEQ 76 
424 ADV 
425 “VERIF. 2° 
426 REG 76 
427 REL 49 
428 x=87 
429 GTO 36 
438 GT9 38 
A3LeLEL 36 
432 * 
433 ARCL 41 
434 “+ DAN/HN2" 
435 XEG 76 
436 GTD 39 
4374LBL 38 
438 “h=" 
439 ARCL 49 
A4 “+ DAN/HN2" 
441 XE0 76 
442 GTO 39 
A443eLBL. 22 
444 AD 

















PPC-T No14 


445 SF 12 518 RCL 38 

446 RESULTATS" sis 1 

447 XEG 76 528 

448 ter" 21 RCL 30 

449 XEQ 76 322 * 

458 CF 12 523 + 

451 AI 524 RCL 21 

452 “HT 8° 525 + 

453 XEQ 76 526 PI 

454 “SYH-DISSYA. " 527 * 

455 XEQ 76 528 REL 17 

456 “V9 COMPRIME" 529 / 

457 XEQ 76 538 RC 87 

458 RL 28 531 

459 RCL 37 532 198 

468 + SR « 

461 ENTERT 534 RCL 45 

462 REL 36 535 + 

463 REL 536 STD 46 

464 x 537 RCL 84 

465 + 538 ? 

466 REL 31 539 / 

467 + 548 RCL 28 

468 STÈ # S4t - 

467 "NVB=" 542 ATAN 

478 ARCL X 543 COS 

471 “+ DAN/HMET 544 RL 46 

472 KE 76 545 

473 RE 31 546 1/X 

474 REL 34 S47 REL 13 

475 27 548 / 

476 GT 44 ss i 

477 GTO 39 558 * 

478+LBL 48 551 ST0 47 

473 RCL 28 552 “TENSION=" 

488 REL 37 593 XEQ 76 

agi * 554 ARCL 47 

482 28 535 “+ DAN/MNZ" 

483 - 556 REG 76 

484 ENTERT 557 RL 11 

485 REL 34 558 ST0 43 

486 RCL 38 559 REL 12 

487 * 568 STO 41 

488 — 5éi ROL 13 

489 RCL 88 562 510 42 

498 * 562 XEO 88 

491 REL 07 564 REL 47 

492 565 * 

493 RL 28 566 STO X 

494 + 567 “COMPRESSION=" 

495 RC 34 568 XEG 76 

496 + 569 ARECL # 

497 STO X 578 *+ DAN/HM2" 

498 ADY 571 REG 76 

499 “VERIF 2° S7aLEi 41 

Saû XEG 76 573 AD 

51 “H=" 574 5F 12 

582 ARCL X 575 "  TERMINE” 

583 “+ DAN/MM2* 576 4E0 76 

Séé HER 76 577 CF 12 

55eLBL 39 578 ADY 

596 AIV 579 AD 

597 SF 12 589 AD 

588 “ TREILLIS" 581 ADY 

59 XEQ 76 582 "AUTRE CAS?" 

518 CF 12 563 KEO 76 

511 AB 584 “OUI=1-HON=27" 

Sie REL 37 585 PROMPT 

13 1 586 À 

514 - 587 X=V7 

515 RL 28 588 GTU 99 

516 * 589 “NON” 

517 ENTERT 598 XEQ 76 

591 OFF 
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S92eLEL 27 
393 RCL 88 
394 RCL 83 
595 / 

59%6 1 

597 + 

598 RCL 08 
599 + 

688 :4i 
681 * 

682 RCL 83 
683 / 

684 CHS 
685 -,18 
686 + 

687 REL 36 
688 + 

689 CNTERT 
618 RL 36 
611 1,3 
618 - 

683 : 

6i4 STO 38 
615 REL 14 
616 STO 45 
617 RTK 
618+LEL 28 
613 RCL 48 
628 REL 17 
621 / 

622 { 

623 + 

624 RCL 88 
625 * 

626 ,41 
627 * 

628 REL 17 
629 ; 

638 CHS 
631 -,18 
632 + 

633 RIL 36 
634 + 

635 ENTERT 
636 RL 3 
637 1,3 
638 - 

639 

648 ST 38 
641 RL 14 
642 STD 45 
643 RTH 
6444L8L 76 
645 AVIEH 
646 PSE 
647 CLA 
648 RTN 
6494LBL 41 
658 “SD CH2=7" 
651 PROMPT 
652 STO 22 
693 “LONG D2 CH=?* 
654 PROMPT 
655 STO 24 
656 ENTERT 
657 3 

658 Ytx 
659 ROL 22 
668 7 

661 ENTER 
662 REL 11 
663 3 

664 VHX 
665 RL 13 


PPC-T Nol4 


666 / 

667 + 

668 ,385 
663 + 

678 RCL 84 
671 7 

672 REL 28 
673 Kt2 
674 / 

675 1/X 
676 RCL 36 
677 * 

678 STO 23 
679 RTN 
68BLEL 82 
681 RCL 13 
682 REL 84 
683 * 

684 RL 24 
685 Rt2 
686 + 

687 1,3 
688 * 

689 REL 11 
698 3 

691 vx 
692 

693 REL 26 
694 * 

695 S5T0 23 
696 RTH 
697+LEL 63 
698 "SECT T CM2=7" 
699 PRONPT 
788 ST 2 
781 REL 84 
782 RCL 28 
783 / 

704 REL 13 
705 * 

706 2,6 
787 * 

78 ENTER 
709 RCL 11 
7183 

7AL VX 
712 RCL 28 
7133 

714 VTX 
715 / 





724 STO 23 
725 RCL 25 
726 4 

727 K=Y? 
728 GT 68 
729 RTN 
7384LEL 84 
731 GT 63 
7324LBL 68 
7332 

734 * 

735 RCL 14 
736 * 

73 516 23 
738 RIN 
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739eLEi 88 
748 RÜL 4i 
741 REL 42 
742 / 
743 SORT 

744 REL 43 
745 





747 
748 
743 
758 
751 
732 
733 5 
754 + 
735 
736 #2 
757 
758 - 

739 SGRT 
76 RCL Y 
761 + 

762 ST 44 
763 RTK 
764 “END* 
765 END, 
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S1eLBL “TFLFLX4" 


82 
83 


“SI2E 851" 
PROMPT 


B4eLEL 99 


85 
6 
87 
88 
9 
18 
ii 
12 


rl 


AOFF 
FIX 2 
CLA 
ELST 
CLRG 
CF 28 
F6? 55 
GTO 71 
GT 78 


14eLBl 71 


15 
16 


6F 2 
GT0 69 


17+L8L 78 


18 


CF 2i 


13eLBL 63 


28 


39 
4g 
41 
42 
43 
44 
45 
4 
47 
48 
49 
5e 
Si 
52 


SF 12 

“ TREILLIS* 
REG 76 
“FLANBT-FLER, * 
EG 76 
OS 
XEG 76 

AD 

CF 2 

“ DONNEES" 
RER 76 

AD 

“K DAN=?* 
PROMPT 

RES 76 

T6 81 

NIEN K 
“ELASTICITE" 
“HÈ4-38-367" 
PROMPT 

EE 76 
ERA 

VIEN X 

“L POTEAU CM?" 
PROMPT 

XEQ 76 

570 83 

NIEM x 

“L HEMBRURE CH?" 
PROMPT 

REG 76 

STE 24 

NIEX x 


S3+LBL 18 


54 
55 
56 
5 
58 
59 
68 
6i 
62 
63 
64 
65 
66 
67 
68 
69 
78 


“5va=CH27" 
PROMPT 
XEG 76 
T0 45 
VIEN Y 
“SY1=CH27" 
PROMPT 
REG 76 
ST0 86 
VIEN X 
RCL 85 
K=Y? 

676 fi 
“ERREUR SVB<=SV1" 
AVIEN 

PSE 

GT0 18 


7eLBL 11 


za 
73 
74 


RCL 86 
+ 


ST0 16 


75 “LG-VE=CH?" 
76 PRONPT 
77 REG 76 
78 510 87 
79 VIEN X 
88 “LG-VI=CW?" 
81 PROMPT 

82 XEQ 76 

83 ST0 88 

84 VIEW X 

85 + 

86 STO 28 

87 “I V8 CH4=?" 
88 PROMPT 

89 KEO 76 

98 5Tû 89 

91 VIEU K 

9e “I VI CH4=?" 
93 PROMPT 

94 KEB 76 

95 STO 18 

96 VIER # 

97 + 

98 ENTERT 

99 RCL 85 

198 RCL 67 

181 Kt2 

182 * 

183 + 

184 ENTERT 

185 RC 86 

186 RCL 88 

187 xt2 

188 + 

189 + 

118 570 21 

dit RCL 16 
127 

113 SORT 

114 570 13 

115 “L Di CH=?" 
116 PROMPT 

117 REB 76 

118 570 fi 

119 VIEW # 

128 “I Di CM4=?" 
121 PROMPT 

122 #E@ 76 

123 510 12 

124 VIEN & 

125 *S D1 CN2=?" 
126 PROMPT 

127 REG 76 

128 ST0 13 

129 VIEN & 

134 “EFFORT © KG?* 
131 PROMPT 

132 KEB 76 

133 STO 14 

134 VIEN X 

135 “DIST c CH=?" 
136 PROMPT 

137 KEG 76 

138 STO 8 

139 VIEN K 

148 “COUPLE=DANM?" 
141 PROMPT 

142 KEQ 76 

143 STO 18 

144 VIEN X 
145eLBL 87 

146 “CAS HO29R387" 
147 PROMPT 

148 STO 15 
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149 28 
158 KCY? 

151 GTO 88 
152 GTO 86 
153eLBL 86 
154 31 

155 REL 15 
156 x€Y7 

157 GTO 97 
158eLBL 86 

159 “ERREUR DE H@* 
168 AVIEN 

161 PSE 

162 GTO 87 
163eLBL 97 

164 FIX @ 

165 "CAS NB=" 
166 ARCL 15 
167 AVIEH 

168 ADY 

169 REG IND 15 
178 "ANE EQUIYALT* 
171 AVIEN 

172 PSE 
173eLBL 51 

174 “CAS NB 1A4 7° 
175 PROMPT 

176 STD 25 

177 à 

178 RON 

179 x€=7? 

180 GTO 58 

181 “ERREUR DE HG 
182 AVIEN 

183 GTO 5i 
184eLBL 58 
185 “CAS Ng=" 
186 ARCL 25 
187 AVIEN 

188 PSE 

183 ADF 

198 FIX 2? 

191 “TREILLIS DBLE F* 
192 “HACE?" 
193 AVIEN 

194 “DUI=1-NON=27" 
195 PROHPT 

196 1 

197 R=Y? 

198 GTO 15 

199 GTO 16 
2B8eLEL 15 
281 “OUI” 

202 AYIEN 

293 2 

284 STO 26 
285 GG 17 
a86eLBi 16 
207 "HON” 

208 AVIEN 

29 1 

e18 STO 26 
211eLBL 17 
212 XEG IND 25 
213 RL @1 

214 REL 16 
215 / 

216 1 

e17 % 

218 STO 28 
219 REL 18 
228 RCL 07 
eu + 

222 RCL 21 
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223 ! 

224 STO 38 
225 RCL 83 
226 RL 19 
227 / 

228 5Tÿ 29 
229 REL 84 
238 510 43 
231 REL 6 
232 510 4i 
233 RL 05 
234 ST0 42 
235 XEG 88 
236 RCL 44 
237 510 31 
238 RL 18 
239 510 41 
248 RCL 86 
241 STO 42 
242 KEG 88 
243 RL 44 
244 STD 34 
245 REL 16 
246 26 

247 x 

248 RL 89 
249 xt2 
258 / 

231 
252 / 
253 i 

254 + 

255 ST 32 
256 S5RT 
257 RCL 29 
258 * 

259 ST 33 
268 xt2 
261 PI 

268 Kte 
263 / 

264 21888 
265 / 

266 1/4 
267 510 35 
262 RL 28 
269 

27 STO 36 



































































ê7è 
273 ENTERT 
274 RE 36 
275 1,3 
276 - 

27 : 

278 STG 37 
279 GT0 13 
288eLBL 29 
281 ROL 83 
282 STO 1? 
283 RCL 08 
284 REL 17 
285 

286 ! 

287 + 

288 ENTER 
289 RCL 88 
298 ROL 17 
291 - 

292 CH 
293 1 

294 + 

295 * 

296 REL 17 














PPC-T Nol4 


297 * 

292 RCL 14 
299 + 

308 2 
381: 

362 : 

383 * 

384 TO 18 
385 RTK 
JABeLEL 34 
307 RCL 63 
388 ,7 
309 + 

318 570 17 
311 ROL 18 
312 :475 
313 # 

314 STD 18 
315 39 
316 ST 27 
317 RIN 
3184181 
319 KEG IND 15 
328 “V1 COMPRINE?" 
321 AVIEN 

322 PSE 

323 "OUI=1-HON=27* 
324 PROMPT 

325 STÈ 56 








Î 
ReŸ? 
GT0 18 
329 GT 22 
33heLBL 18 

331 8ES 58 

3 “HT 6" 

333 KE9 76 

334 &DY 

335eLBL 8i 

336 "DISSYMETRIO. * 
337 KEQ 76 

338 “Yi COMPRIME" 
339 RER 76 

348 RL 28 

341 RCL 37 

342 * 

343 RÈL 28 

344 - 

345 REL 38 

346 RL 38 

347 * 

348 + 

349 RO 88 

358 * 

351 REL 87 
352 

353 RL 28 

354 + 

355 RL 34 

356 * 

357 ST0 39 

358 REL 3i 

359 ROL 34 

368 KÇ=v? 

361 GTO 28 
3624181 19 

363 RCL 31 

364 ROL 07 

365 + 

366 RCL 88 

367 / 

368 STO 48 

369 RCL 34 

378 x(=Y? 
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371 GTO 21 
372 616 35 
373+L6L 28 
374 REL 26 
375 REL 37 
376 + 
377, ENTERT 
378 REL 38 
379 RC 38 
388 x 

381 - 

382 RC 3i 
383 + 

384 STO 49 
385 GTG 35 
3866LBL 21 
397 ROL 37 
388 2 

355 - 

394 REL 28 
39 + 

392 ENTER 
393 REL 34 
394 RCL 38 
395 + 

396 + 

397 ST0 di 
398+LBL 35 
395 “Hyi=" 
4a8 ARC 33 
401 “+ DAN/HN2" 
482 XE8 76 
483 RD 

484 “VERIF, 2° 
485 KEG 76 
486 FCL 49 
407 x=87 

498 GTO 36 
483 GTG 36 
ALBeLEL 36 
4it “h=" 

412 ARCL 41 
413 “+ DAN/HNE” 
414 KE 76 
415 GT 39 
416+LBL 36 
417 *H=" 

418 ARCL 49 
419 “+ DAN/NHE" 
428 EG 76 
421 GTO 29 
4224 Bi 22 
423 XEG 8Q 
424 “HT 9" 
425 REA 76 
426 ADY 
4274LBL 62 
428 "SYH-DISSYM. 
429 SE 76 
438 “V8 COMPRINE" 
431 REG 7€ 
432 ROL 28 
433 RCL 37 
434 x 

435 ENTERT 
436 RCL 38 
437 RL 38 
438 * 
439 + 

448 RCL 31 
441 * 
442 STO & 
443 “HVB=" 
444 ARCL X 
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445 “+ DAN/HN2" 
446 XEQ 76 
447 RCL 31 
448 REL 34 
449 x»Y? 
458 GTO 48 
451 GTD 39 
4524LBL 48 
453 RIL 28 
454 RL 37 
455 * 

456 RL 28 
457 - 

458 ENTERT 
459 RCL 38 
468 RCL 38 
461 + 

462 - 

463 RCL 88 
464 * 

465 REL 87 
466 / 

467 REL 28 
468 + 

469 REL 4 
478 * 

471 STO À 
472 ADV 
473 “VERIF 
474 XEQ 76 
475 Ne" 
476 ARCL % 
477 “+ DAN/HH2" 
478 XEG 76 
479eLBL 39 

488 AD 

481 SF 12 

482 “TREILLIS" 
483 XEG 76 

484 CF 12 

485 AI 

486 ROL 37 

487 

488 - 

483 RCL 28 

498 * 

491 ENTERT 

492 RCL 38 

493 1 

494 - 

495 RL 38 

496 + 

497 + 

498 RCL 21 

495 + 

588 PI 

sai * 

58e RL i7 

583 / 

584 RCL 67 

585 

586 188 

587 + 

588 REL 45 

589 + 

Sie ST0 46 

Si RCL 84 

512 2 

513 ; 

514 RCL 28 

515 7 

516 ATAN 

517 COS 

518 REL 46 











519 / 593 ADV 
— 581% 594 “AUTRE CAS?" 
S21 REL 13 595 KEQ 76 

522 / 596 “OUI=1-NON=2?" 
523 1 597 PROMPT 
524 * 598 1 
525 ST0 47 599 x=v? 
526 “TENSION=" 688 GTO 99 
527 XEG 76 681 “NON” 
528 ARCL 47 682 XE0 76 
529 “+ DAN/HH2" 683 OFF 
538 KEO 26 684+LBL 29 
531 RCL 11 685 RCL 88 
532 570 43 686 RCL 17 
533 RL 12 687 / 
534 STO 41 688 x12 
535 REL 13 689 ,82 
536 510 42 6i8 + 
537 kEG 88 611 CHS 
538 RCL 47 612 ,18 
539 + 613 - 
548 ST0 X 614 RCL 36 
541 “COMPRESSION=" 615 + 
542 KEG 76 616 ENTERT 
543 ARCL X 617 RL 36 
544 “+ DAN/HH2" 618 1,3 
545 XEQ 76 619 - 
546 93 628 / 
547 RL 27 621 510 3 
548 k=Y? 622 REL 14 
549 GT 97 623 ST0 45 
558 GTO 41 624 RTN 
SS1+LEL 97 6254LBL 30 
552 REL 15 626 RCL 36 
553 5 627 ,2 
554 4 628 + 
555 4,75 629 ENTER 
556 / 630 RCL 36 
557 CHS 631 1:3 
558 510 18 632 - 
559 REL 87 633 / 
568 + 634 STD 38 
561 REL 21 635 REL 14 
562 / 636 STO 45 
563 ST0 34 637 RIK 
564 REL 36 638eLEL 76 
565 ,85 633 AVIEN 
566 + 648 PSE 
567 ENTERT 641 CLR 
568 REL 36 642 RTN 
563 1,3 643+L8i A1 
578 - 644 “5D2 CM2=?" 
S71 645 PROMPT 
572 ST0 38 646 ST 22 
573 XEQ 88 647 “LONG D2 CH=?" 
574 “NT 3” 648 PROMPT 
575 XEO 76 649 STO 24 
576 AD — 654 ENTER 
577 651 3 
578 STD 27 652 Y+X 
579 RO 58 653 RE 22 
588 : 654 7 
581 #=v? 655 ENTER? 
582 GTO 81 656 REL 11 
583 GTO 82 657 3 
584eL8L 41 658 V+x 
— 565 AW 659 RCL 13 
586 SF 12 668 
587 “ TERNINE" 661 + 
588 XEQ 76 662 385 
589 CF 12 663 * 
598 ADY 664 REL 94 
591 ADV 665 / 
592 AL 666 RCL 28 
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mn 





667 Xt2 
668 / 
669 1/X 
678 REL 26 
671 * 

67e ST0 23 
673 RIN 
674eLBL 82 
675 RCL 13 
676 REL 84 
67? # 

678 RCL 28 
679 xt2 
688 + 

681 1,3 
682 * 

683 RO ii 
684 3 

685 YTk 
686 : 

687 RCL 26 
688 * 

639 ST 83 
698 RTN 
6SIeLEL 83 
692 "SECT T CHè=2" 
693 PROMPT 
694 STO 22 
695 RE 84 
696 RL 28 
697 

638 REL 13 
693 + 

788 2,6 
Fi + 

72 ENTERT 
783 ROL ii 
7843 

785 tx 
786 RCL 28 
787 3 

708 VtX 
785 

718 ENTER 
711 ROL 13 
712 RL 22 
7137 

714 + 

715 

716 RE 26 
717 « 

718 ST0 23 
19 ROL 25 
728 4 

721 KV? 
722 GT0 68 
723 RTH 
74eLBi 84 
725 GT0 43 
726LEL 68 
LE 

788 + 

729 RL 14 
738 + 

731 ST0 23 
732 RTN 
733+L6L 88 
734 ROL 4 
735 REL 42 
73% 

737 S8RT 





748 1/4 
741 XtE 
742 ,0861158 
743 x 

744 ST 48 
745 ,65 
746 * 
747,5 
748 + 

749 STO Ÿ 
738 #tè 
791 REL 48 
752 - 

53 SGRT 
754 RCL Ÿ 
795 + 

756 ST 44 
757 RTH 
PS8eLEL 88 
753 AD 
764 SF 12 


761 * RESULTATS" 


762 REG 76 
763" tte" 
764 KE 76 

765 CF 12 

766 RDV 

767 RTN 

768 "END* 

763 END, 
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92 "SIZE 052" 
83 PRONFT 
B4sLEL 55 

5 AOFF 

86 FIR 2 

87 CLR 

88 CLST 

99 CLRG 





13 ST0 78 
deb 71 


15 5F 21 





17+LBL 76 
18 CF 21 
13+LBL 65 
28 5F 12 
TREILLIS* 





32 "H DAN=?" 
33 PROMPT 

34 XEB 76 

35 570 êi 

36 YIEN K 

37 *ELASTICITE" 
38 “+£4-38-76?" 
39 PRONPT 

48 KES 76 

41 STÜ 82 

42 VIEW E 

43 “L PGTEAL € 
44 PROMPT 








43 PROMPT 





VIER X 
"SVI=CHE? 
PROMPT 

él KED 76 
62 STO 86 

63 VIEN # 

64 RCL 85 

65 #=v? 

66 GTO 11 

67 “ERREUR SV8C 
68 AVIEN 

69 PSE 

78 GT0 18 
TILL 11 


ED En en en en 
PSE 
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BLeLBL *TFLFLXS" 


AMBT-FLEX,* 




















738 RL 43 72 REL 86 
733 73 + 
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74 STü 1 148 GTO 87 222 REL 89 


75 "LG-VE=CH?" 
76 PROMPT 

77 XEQ 76 

78 ST0 87 

79 VIEM X 

88 “LG-VI=CH?" 
81 PROMPT 

82 KEG 76 

87 STO 08 

84 VIEN X 

85 + 

86 STO 26 

87 “I VO CH4=7" 
88 PROMPT 

89 KEB 76 

ga STO 89 

91 VIEN * 

92 “1 VI CH4=7" 
93 PROMPT 

94 REG 7 

95 ST0 18 

96 VIEN X 

+ 

98 ENTER 

99 RCL 85 

188 REL 87 

ini xt2 

192 + 

187 + 

184 ENTER 

185 REL 86 






SG 1 

VIEN & 

“I Di CH4=7* 

FROMPT 

76 

12" 
x 

$ Di CH2=?* 

PRONPT 

RER 76 

STû 13 

VIER X 

“EFFORT @ KG?" 

PROMPT 

132 REG 76 

133 F0 14 

134 YIEN à 

435 *DIST € CH=?" 

136 PRONPT 

137 REG 76 

138 ST0 98 

139 VIEN X 

148 REL 83 

141,7 

142 # 

143 STO 17 

144 2 

145 / 

146 RCL 88 

147 CT? 











149 32 

158 STD 15 

151 GTG 97 
152eLBL 87 

153 31 

154 STO 15 
155eL8L 97 

156 FIX à 

157 “CAS NO 31° 
158 AVIEH 

159 AD 

168 KEG IND 15 
161 "AME EQUIVALT" 
162 AVIEN 

163 PSE 
164eLEL 51 

165 "CAS NB 144 ?” 
166 PROMPT 

167 ST0 25 

168 4 

163 XOY 

178 Ke=? 

171 GTO 56 

172 “ERREUR DE H8° 
173 AVIEN 

174 GTO 51 
175eLBL 58 

176 “CAS NB=" 
177 AREL 25 

178 AVIEN 

179 PSE 

188 AD 

181 FIK 2 





182 *TREILLIS DBLE F” 


183 "HACE?" 
184 AVIEN 
185 “OUI=1-NON=27" 
186 PROMPT 
187 1 

188 X=1? 
18 GTO 15 
198 GTO 15 
A91eLBL 15 
192 *OUE* 
193 AVIEN 





223 STO 41 
224 REL 85 
225 STO 42 
226 XEG 88 
227 REL 44 
228 STD 31 
229 RCL 18 
238 ST0 41 
231 RL 86 
232 ST0 42 
233 *EQ 88 
234 ROL 44 
235 ST0 34 
236 REL 16 
237 26 

238 * 

239 REL 29 
248 xt2 
241 / 

842 RO 23 
243 

244 

245 + 

246 ST 32 
247 SGRT 
48 RL 29 
249 + 

258 ST 33 
251 xt2 
ese PI 

253 xt2 
254 7 

255 21808 
256 

257 1x 
258 ST 35 
253 ACL 28 
268 / 

261 STO 36 
26 1 

263 - 

264 ENTERT 
265 RCL 36 
266 1,3 


















278 GT 13 
87lell 3i 
6h 272 RL 88 
199 AVIEE 273 àt2 
288 i 274 ,175 
281 STG 26 275 * 
2B2eLEi 17 276 REL 83 
283 XEQ IND 25 277 at 
284 AOL 8i 878 
285 RC 16 279 :475 
286 / 284 + 
287 88 
208 * 2 
289 STD 28 283 RC 4 
218 REL 18 284 + 
211 REL 87 285 | 
212 * 286 
213 ROL 21 267 STD 18 
214 / 288 RTN 
215 STO 34 289+LEL 32 
216 RC 43 298 RCL 64 
217 REL 19 291 RE 83 
218 / 292 / 
219 STO 29 293 CHS 
228 RCL 84 294 1 
221 S10 43 295 + 
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296 xt2 
297 ENTERT 
298 RCL 98 
299 2 

308 

301 FCL 87 
302 : 

383 : 

384 + 

385 + 

346 RCL 63 
387 + 

398 RCL 14 
309 * 

318 ,35 
3ii* 

312 1 

3 
3i4 570 18 

315 RTK 

JHLEL 13 

317 KES IRB 15 
318 V1 COMPRIME?- 
319 AVIEN 

326 PSE 

321 "OUI=1-NON=2?" 
322 PROMPT 

323 ST0 58 
324+LBi 38 

325 RCL 58 

326 ! 











328 670 18 
323 GT 
FBeLEL 15 
331 REG 58 
332 “HT €" 
76 








334 AIY 
335eL8L 81 





345 RCL 38 
346 RCL 38 
347 * 
348 + 
349 REL 68 
358 * 





359 RCL 34 
36û HC=V7 
361 GTO 28 
J62eLBL 19 
363 REi 31 
364 RCL 67 
365 * 





365 ST 48 
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369 RL 34 
ELRICE 
371 GTO 21 
372 GTG 35 
373eLEi 28 
374 RCL 28 





379 RÈL 38 
388 * 

381 - 

382 RCL 31 
383 + 

384 ST 49 
385 GT0 35 
3866LBL 21 
387 RCL 37 
388 

389 - 

398 REL 26 
31 + 

392 ENTER 
393 RCL 36 
334 RCL 38 
395 * 

396 + 

397 STC 41 
3984181 35 
399 * 
48 à 
481 "+ DAN-HN2" 
482 XEG 76 

487 ADY 

494 "VERIF, 2° 
485 XEû 76 

486 RCL 49 

487 
488 GT 36 
483 GTO 38 
4iBeiBL 36 











426 ADY 
4274LBL 82 

428 "SYH-DISSYH.* 
429 XEQ 76 

438 “V8 COMPRINE" 
431 XE0 76 

432 ROL 28 

433 RCL 37 

434 + 

435 ENTERt 

436 REL 38 

437 RL ,39 

438 « 

435 + 

448 RCL 31 

441 * 
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442 STO & 
443 “HVB=" 
444 ARCL X 
445 “+ DAN/HN2" 
446 XEG 76 
447 RE 31 
448 RCL 34 
449 #37 
458 CTO 48 
451 GTO 39 
4S2LBL 48 
453 RÜL 28 
454 RCL 37 
455 * 

456 RCL 28 
457 - 

458 ENTER+ 
459 RCL 36 
468 RCL 36 
461 * 

462 - 

463 RCL 98 
464 + 

465 RCL 87 
466 / 

467 REL 28 
468 + 

469 RCL 34 
478 

471 STO x 
472 AV 
473 “YERIF 2° 





476 ARCL # 
477 “+ DAN/HH2* 
478 KEG 76 
479eLBL 35 
488 ADY 
481 SF 12 
482 "TREILLIS" 
483 REG 76 
484 CF i2 
485 ADS 
486 RC 37 
487 

488 - 

489 RCL 28 
498 * 

494 ENTERT 
492 RCL 36 
493 i 

4% - 

495 RCL 38 
496 + 

497 + 

498 RC 21 
499 + 

588 PI 

Se1 * 

582 RCL 17 
503 / 

584 RCL 87 
505 / 

596 196 
587 * 

588 ROL 45 
599 + 

S18 STO dé 
511 ROL 84 
siè 2 

SE / 

514 RCL 28 
515 / 
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516 ATAN 589 STO 45 663 =1 
517 COS 598 RTK 664 GTD 81 
518 RCL 46 SOLLEL 32 665 GTO 82 
515 / 592 RCL 66 666eLEL 76 
529 1/X ss 593 REL 03 667 AVIEN 
5 RCL 13 594 / 668 PSE 
522 / 595 CH5 669 CLR 
523 1 596 1 678 RTK 
sea % 597 + 67LeLEL 81 
525 STO 47 598 xt2 672 "SE2 CHe=7" 
586 “TENSION=" 599 2,2 673 PROMPT 
527 KEQ 76 68 + 674 510 22 
528 ARCL 47 681 CHS 675 “LONG D2 CH=? 
529 “+ DAN/HH2" 682 .75 676 PROMPT 
534 XEQ 76 687 + 67? ST0 24 
531 REL 11 684 REL 36 678 ENTERT 
53 510 4 685 + 6793 
533 REL 12 686 ENTERT 68e vx 
54 ST0 41 687 REL 36 681 RL 22 
535 RE 13 648 1,3 see / 
536 STO 42 649 - 683 ENTERT 
537 XEO 48 618 / 684 REL 11 
538 REL 47 611 STO 38 685 3 
539 * 612 REL 14 686 YtK 
548 STO x 613 ST0 45 68? REL 13 
541 “COMPRESSION=" 614 99 688 / 
542 KEG 76 615 ST0 27 689 + 
543 ARCL X 616 RTK 698 385 
544 “+ DAN/HHE* 6IPSLEL 97 691 * 
545 KEG 76 £18 REL 88 692 RCL 84 
546 95 619 RCL 83 653 
547 RCL 27 628 / 
48 x=17 621 xt 
549 GTO 97 622 CH 
SSbeLEL 41 623 : 
551 RDV 624 + 
552 SF 12 625 RCL 66 
553 *  TERMIHE* 626 à 
554 KEQ 76 62? REL 14 7 
555 CF 12 623 + Th26LEL 
556 At 629 2 783 RCL 13 
557 ADY 63 / 7éd REi Bd 
558 AV ga! 785 * 
559 Av SE À 786 RL 28 
560 "AUTRE CAS? 633 ST0 18 LA 
561 NES 76 634 PEL 87 788 * 
562 “OUI=1-HOH=27- 635 * 789 3 
563 PROMPT 636 RL 21 7ia x 
564 i 67 / 71 RE 
565 #=1? 638 ST0 38 723 
566 GTO 99 639 FEL 88 713 YA 
567 “HOW 648 RCL 87 7144 
S6B XEO 76 gai / 715 REL 26 due 
569 OFF 642 xt2 716 + 
SARLEL 31 643 1,85 717 576 27 
571 RCL 08 644 » 718 RIN 
S72 REL 63 645 CHS 71S6LEL 87 
573 / 646 ,85 788 "SECT T Ch2=?- 
74 xt2 647 + 721 PROMPT 
575 3,1 648 REL 36 722 516 22 
5% + 643 + 723 RCL Bd 
577 CHS 658 ENTERT =: 724 REL 28 
578 ,2 651 RCL 36 725 / 
579 + 652 1,3 726 REL 13 
588 REL 36 653 - 727 4 
581 + 654 / 728 2.6 
582 ENTERT 655 510 38 729 x 
583 RCL 36 656 XER 80 738 ENTER 
584 1,3 657 “HT a” 731 RCL fi 
585 - 658 XEQ 76 73 3 
586 / Po 659 ; TE YX 
587 STO 38 668 STD 27 74 ROL 28 
588 REL 14 661 REL 54 135 3 

662 1 736 tx 

À 
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77! 
738 ENTERT 
739 RCL 13 
749 RCL 22 
741 / 

742 + 

743 / 

744 REL 26 
745 * 

746 ST 23 
747 REL 25 
748 4 

743 K=Y? 
758 GTO 68 
754 RIX 
7S24LBL 84 
253 GTO 83 
TS46LBL 68 
755 2 

756 * 

757 REL 14 
758% 

739 510 27 
768 RTK 
761eLBL 88 
762 REL 4i 
763 RCL 42 
764 / 

765 SURT 
766 REL 43 
767 / 

768 1/X 
765 #2 
774 ,8881158 





773 ,65 
774 * 

775 :5 
776 + 

772 STE Y 
778 xt 
773 RCL 46 
788 - 

781 SORT 
782 
783 + 

784 ST 44 
785 RIN 
786+LBL 84 
787 ADV 
788 5F 12 





# 


789 “ RESULTATS" 


794 KE 76 

791 ter” 
792 XEO 76 

793 CF 12 

794 AD 

795 RTX 

796 “END 

297 END. 





18 CF 28 

11 F5? 55 

12 GTG 71 

13 GTO 78 
14eLBL 71 

15 SF 21 

16 GTG 63 
174LBL 78 

18 CF 21 

19eLBL 65 

28 ADY 

21 SF 12 

22 * TREILLIS" 
23 XEG 76 

24 "FLAMBT-FLEX, " 
25 XEG 76 

26 +" 
27 REG 76 

28 AD 

29 CF 12 

3” DONNEES" 
31 XEB 76 

32 AY 


38 CN DAN=7* 


34 PROMPT 

35 XEG 76 

36 ST 6! 

37 YIEH 

38 “ELASTICITE" 
35 + 24-36-2367" 
48 PROMPT 

41 KEO 76 

42 STÜ 82 

43 YIEH X 

44 “L POTEAU CN?" 
45 PROMPT 

46 REB 76 

47 STO 83 

48 VIEN x 

49 *L HEMBRURE CK7° 
58 PROHPT 

S1 XEQ 76 

52 610 &4 

S3 VIEN X 
S4eLBL 18 

35 "SVO=CH27" 
56 PROMPT 

97 HEO 76 

58 STO 85 

59 VIEW K 

68 "SY1=CH2?" 
61 PROMPT 

62 EG 76 

63 ST0 86 

64 VIEW x 

65 RCL 45 

66 K=Y? 

67 GT 11 

68 “ERREUR SY8C=5v1" 
69 AVIER 

78 PSE 

71 GTO 18 
728LBL 11 

73 RCL 86 

74 + 
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75 STO 16 
76 “L G-VB-CN?" 
77 PROMPT 

78 XEQ 76 

79 STD 67 

88 VIEH X 

81 *L G-V1=CH?" 
82 PROMPT 

83 XEQ 76 

84 STD 88 

85 VIEN x 

86 + 

87 STO 28 

88 “I VA CH4=?" 
89 PROMPT 

98 xEQ 76 

91 STO 89 

92 VIEM K 

93 “I V1 CH4=7" 
94 PROMPT 

95 XEQ 76 

%6 STO 18 

97 VIEN K 

98 + 

99 ENTERT 

188 REL 85 

181 RL 87 

182 xt2 

183 

184 + 

185 ENTERT 

186 RC 6 

187 FCL 88 

188 xt2 

189 x 

19 + 

111 STO 21 

112 RCL 16 

i3 

114 SORT 

115 ST 19 

116 *& Di CH=7" 
117 PROMPT 

118 XEQ 76 

119 STG 11 

128 VIEW K 

121 “1 Di CH4=?* 
122 PROMPT 

123 KEB 76 

124 STD 12 

125 VIEX X 

126 *S Di CH2=7* 
127 PRONPT 

128 KEQ 76 

129 STO 13 

138 YIEN k 

131 “EFFORT Q KG?* 
132 PROMPT 

133 XEG 76 

134 5TG 14 

135 VIEN # 

136 “Q REPARTI=?" 
137 PROMPT 

138 XEQ 76 

139 STG 27 

149 VIEN # 
1410LBL 67 

142 “CAS HO15A182" 
143 PROMPT 

144 STG 15 

145 14 

146 XXY? 

147 GTO 68 

148 GTO 86 
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149LBL 6ù 223 / 297 1 

1 19 224 STO 29 238 * 

151 RCL 15 225 RCL 84 299 ST0 18 

152 KV? 226 ST0 43 308 RTK 

153 GT 97 227 REL 89 3RteLBL 17 

1SMeLBL 66 528 ST0 4 382 RCL 63 

15 “ERREUR DE HO 229 RCL 5 363 2 

156 AVIEN 239 STO 42 34 + 

157 PSE 231 KEO 08 395 STO 17 

158 GTO 87 232 RCL 44 396 RCL 14 

159LBL. 97 28 610 31 307 * 

168 FIX © 54 RL 18 308 2 

161 “CAS NO=" 335 ST0 41 389 / 

162 ARCL 15 536 REL 86 318 

163 AVIEN 27 ST 42 311 * 

164 nÔv 238 KE 68 312 ST 18 

165 KEQ IND 15 239 RL 44 313 RTN 

166 “NE EQUIVALT- 248 ST0 34 44LBL 18 

167 AVIEM 341 RCL 16 315 RCL 83 

168 PSE 542 26 316 2 

169eLBL 51 24 + 317 * 

178 “CAS HO À 47 344 PEL 29 38 STO 17 

171 PRONPT 245 #2 319 REL 27 

172 STO 25 467 328 « 

173 4 321 4 

124 XOY a Rue 322 ! 

175 KEY? 249 1 331 

176 GTO 56 258 + 324 * 

177 “ERREUR DE NO 231 ST0 32 325 ST0 18 

178 AVIEW 252 SORT 326 RTN 

179 GTQ 51 253 RL 29 3274LBL 13 

188eLBL. 58 254 + 328 XEG IND 15 

181 “CAS NO * 55S ST0 33 229 “V1 CONPRIME? 

182 ARCL 25 256 12 338 AVIEX 

183 AYIEN 957 FI 331 PSE 

184 PSE 258 te 322 “OUI=1-HON=27 

185 AD 259 / 333 PRONPT 

186 FIX 2 568 21080 334 1 

187 “TREILLIS IBLE F- 561 7 335 x=v? 

188 “HACE” 262 1/4 336 GTO 22 

189 AVIEN 263 STO 35 337 GT 26 

198 “OUI=1-HOH=27* 264 RCL 28 SLEL 22 

191 PROMPT 25 / 339 IV 

192 1 566 ST0 3 340 SF 12 

193 X=v? 267 1 341 RESULTATS" 

194 CTO 28 268 - 342 HER 76 

195 GTD 21 269 ENTERT 43" rte" 

1964LBL 28 278 RCL 36 344 KEG 76 

197 “üut 271 13 345 CF 12 

198 AVIEM 2 - 346 AV 

199 2 on! 347 “HT 8" 

288 STD 26 974 ST0 37 348 EQ 76 

281 GTO 19 275 ET0 13 349 “DISSYMETRIE. * 

2024LBL 21 2764LBL 15 354 XEQ 76 

283 “NON” 7 RL 83 351 “V1 COMPRIME" 

204 AVIEM 578 T0 17 352 KE 76 

25 1 279 EL 14 353 RCL 28 

286 STO 26 298 + 354 RCL 37 

2874LBL 19 281 4 355 x 

288 HEQ IND 25 28 ; 356 RCL 28 

289 RCL 81 283 1 357 - 

218 RL 16 284 358 RCL 34 

ali / 285 STO 18 359 RCL 38 

atè 1 286 RTK 368 # 

213 % 2874LBL 16 361 + 

214 STD 28 288 RCL 63 362 REL 88 

215 RCL 18 289 ST0 17 363 + 

216 REL 87 298 xt2 364 RCL 97 

27 + 291 RCL 27 365 / 

218 RCL 21 292 « 366 REL 28 

219 / 293 8 367 + 

220 STO 38 294 / 368 REL 34 

221 REL 83 295 1 369 + 

222 REL 19 2% 2 37 S10 39 
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371 REL 31 
372 RL 34 
373 KEY? 
374 GTO 25 
3750LBL 24 
376 REL 31 
377 RCL 67 
378 * 

379 RCL 88 
380 / 

381 STO 48 
382 RCL 34 
383 x(=Y? 
384 GTO 23 
385 GT0 35 
3R6eLEL 25 

7 387 REL 28 
388 REL 37 
383 + 
398 ENTERT 
391 REL 36 
392 ROL 38 
393 + 
34 - 

395 RCL 31 
396 + 
397 STO 49 
398 GT0 35 
399eLBL 23 
488 FCL 37 
481 2 
48 - 
483 RCL 28 
44 + 
495 ENTER 
496 REL 38 





487 REL 36 





#H#LEL 35 
412 “WY 
413 AREL 39 
414 “+ DAN/HME 
415 XEG 76 

416 AD 

417 “VERIF 2* 
418 REG 76 

419 RCL 43 

428 X=87 

421 GTO 36 

422 GT 38 
423eLBL 36 

424 “H=" 

425 ARCL 41 

426 “+ DAN/HN2* 
427 XEQ 76 

428 GTE 39 













438 he" 

431 ARCL 43 
432 “HIAN/MM2® 
433 XEG 76 

434 GTO 39 
435eLBL 26 

436 AEY 

437 5F 12 

438 “ RESULTATS" 
439 #EG 76 

44 rex" 
441 KEQ 76 

442 CF 12 

443 ADV 

444 “HT 0° 
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445 EG 76 
446 “SYH-DISSYAT. 
447 XEQ 76 
448 “VB COMPRINE 
449 XEQ 76 
454 RCL 28 
451 RCL 37 
452 * 

453 ENTER 
454 RCL 38 
455 RCL R3R 
456 + 

457 + 

458 REL 31 
459 * 

464 STO X 

461 “H VB=" 
462 AREL X 
463 “+ DAN/HM2- 
464 RER 76 
465 REL 31 
466 RCL 34 
467 XV? 

468 GTO 48 
469 GTO 34 
47BeLEL 48 
471 RCL 28 
472 RCL 37 
473 * 

474 RÛL 28 
475 - 

476 ENTER 
477 RCL 36 
478 RCL 38 
475 x 

486 - 

481 RCL 88 
482 * 

483 RCL 87 
484 

485 RCL 28 
486 + 

487 RCL 34 
488 x 

489 STÛ x 

494 AIV 

491 “VERIF 2* 
492 REG 76 
493 He" 

494 ARCL E 
495 “+ DAN/HM2 
496 XEQ 76 
49TALEL 33 
498 REV 

499 “TREILLIS" 
548 XEQ 76 
541 ADV 

588 RL 37 
583 1 

su - 

585 REL 28 
546 * 

587 ENTERY 
568 RCL 36 
589 1 

si - 

sit RCL 38 
512 + 

513 + 

Sté RCL 21 
515 * 

516 FI 

517 + 

518 RCL 17 
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526 STO 46 
527 RCL 64 
528 2 
329 
538 RCL 28 
531 / 
332 ATEN 
533 C5 
534 RCL 46 
535 - 
536 1/4 
S37 RCL 13 
538 : 
533 1 
48% 
S41 STG 47 
S42 “TENSION=" 
543 XEB 76 
544 ARCL 47 
545 “+ DAN/NME" 
S46 KEG 76 
547 RL 11 
548 STO 43 
349 RCL 12 
538 STO di 
991 RCL 13 
552 STO 42 
993 XEB 66 
334 RCL 47 
55 + 
336 ST0 à 
357 “CORPRESSION=" 
358 REG 76 
553 
568 
561 
S62+LEL 41 
563 ABS 
564 5F 12 
365 *  TERNIHE" 
566 REG 76 
567 CF 12 
568 AD 
569 AY 
578 AY 
571 AY 
S7è ADS 
573 “AUTRE CAS?" 
74 XEG 76 
975 “OUI=1-NON=27" 
576 PROMPT 
77 
S78 
379 GT0 99 
588 “HONT 
Se1 FEB 76 
568 OFF 
583+LEL 16 
584 RCL 36 
985 ,39 
586 - 
587 ENTERT 
588 RCL 36 
389 1,3 
598 - 
391 / 
592 STO 38 
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593 RCL 27 
594 RL 03 
595 + 

5% 1 

597 % 

598 STD 45 
599 RTH 
6B8eLEL 17 
681 XEG 15 
682 RTH 
683eLBL 16 
684 RCL 36 
685 83 
606 + 

687 ENTERT 
688 RCL 36 
689 1,3 
618 - 

61 7 

612 STO 38 
613 RL 27 
614 REL 93 
615 * 

616 i 

617 * 

618 STO 45 
619 RTH 
628+LBL 15 
621 REL 36 
622 18 
623 - 

624 ENTERT 
625 REL 36 
626 1:3 
627 - 

628 / 

629 ST0 3 
638 REL 14 
63i STÙ 45 
632 RTK 
633eLBL 76 
634 AVIEN 
635 PSE 
636 CLA 
637 RTH 
638eLBL 81 
639 “SD2 CH2=7" 
648 PROMPT 
641 STO 22 
642 "LONG D2 CH=?" 
643 PROMPT 
644 STO 24 
645 ENTERT . 








































































647 VtX 
648 ROL 22 
649 ; 

658 ENTERT 
651 RL 11 
652 3 

653 Y* 
654 REL 13 
655 / 

656 + 

657 385 
658 + 

659 REL 84 
668 / 

661 RCL 28 
662 xt2 
663 / 

664 1/X 
665 RL 26 
666 * 


646 3 _ 


667 STD 23 
668 RTH 
669LEL A2 
678 RL 13 
671 REL 84 
672 * 

673 REL 28 
674 Xt2 
675 * 

676 1:3 
677 * 

678 RCE 11 
6793 

688 Y+X 
681 / 

682 RC 26 
683 + 

684 STO 23 
685 RTN 
686LEL 43 
687 “SECT T CH2=?* 
688 PROMPT 
689 STO 22 
698 REL 84 
631 REL 24 
698 

693 ROL 13 
694 x 

695 2,6 
696 * 

697 ENTER 
698 RL 11 
699 3 

788 1 
781 RL 28 
708 3 

783 tx 
784 

785 ENTERT 
786 RL 13 
787 RL 22 
788 / 

789 + 

718 / 

711 REL 26 
7iè x 

713 ST0 23 
714 REL 85 
715 4 

716 #=47 
717 GI0 68 
718 RTN 
719eLBL 84 
728 GTO 83 
FeleLBL 68 
7e & 

723 * 

724 RCL 4 
725 * 

786 510 83 
727 RIN 
728+LEL 88 
729 REL 41 
738 RCL 42 
7 / 

732 SGRT 
733 RCL 43 
734 

735 1/8 
736 xtè 
737 ,6061158 
738 * 

739 STÙ 48 


748 ,65 
741 + 

748 ,5 
743 + 

744 STO Ÿ 
745 Xt2 
746 REL 48 
747 - 

748 SGRT 
749 REL Ÿ 
758 + 

791 STO 44 
752 RTN 
753 “END 
754 END 
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SECTIONS D'ACIER 


Bonjour, 

Voici un programme destiné aux maçons. Il calcule les sections d'acier 
longitudinales d'une poutre en béton armé suivant la méthode des etats limites. 
Connaissant l'écarissage, le béton, les aciers et les sollicitations de la sectioæ 
censidérée il sortira la ou les sections nécéssaires. 

Les entrées se font avec des unités à respecter et les sorties seront munies 
des leurs. Le déroulement se fait comme ceci: 
-PRGM K: poutre rectangulaire avec ou sans aciers comprimés aux ELU 





FeE: en MPa (FeE40 400) A1 gamma-Mu/Mser=1, 35G+1,5Q/G+Q sans unité 
Fc28: en MPa l: sans unité 
bi en cm pi: % 
ds: en cm hi x F 
d'? en cm a: » 2 % 
Mu: en Nn A: en cm 
-PRGM L: poutre en Té aux ELU 
bo: en cm 
ho: en cm 


+ autres données déjà connues 


-PRGM M: poutre rectangulaire avec ou sans aciers comprimés aux ELS 
Mser: en Nm 


+ autres données déjà connues 
-PRGM O: potre en Té aux ELS 


+ autres données déjà connues 













01 LBLT 

02 "TERMINEN = gi 

03 AVIEW = SL 
04 END —— 


Garreau Jean-René 
4 ave Beauger He—| 
44300 Nantes 
40-74-25-72 








R' 
PROMET & 
PROMPT 
ÊTH 













ANIEN Xeg 
FS? 85 GTO *K" 









AVIEX KED &4 

STÛ HD F5? 05 

FC? 86 GTO 85 
LES 







TERMINE" 
AVIEM GTO * * 













F5? 66 GTO 48 F5? 45 
+ "Az" FIX 2 ARCL X 
“+ cHt2" AYIEN 

AREL K AVIEN “ENCORE? AYIEN Ke07 
LX ORCLAS - 7 LE QD C F9? 87 GTO “Nr 
+ RCA + 





2264LBL 84 
“4 # 1 + RTN 















Mise 2324L8L 66 

“HAN QUIEN  REL 84 + RL 87 + 
RO 2 NEO meme FIN “ ARCLX AVIEM 
STO &1 FIX2 “A Le REL Ÿ RL 87 
ARCL X “+ cHter VIEN SIS9LBL R . RLER C0 

RCL 8R RELZ - RoL a4[iRG CF 27 SF 21 18 
REL 85 - RCLE7 » 15 # RL K 
STE AD “A2=" AREL X STO 89 
“+ cMt2*  AVIEN è 4" AREL X AVIEM RTK 
Em mm Po RON RTE CRT en (| 
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GT0 “0° 








425eL8L 4û 
REL 88 CF 6 GTDE 






84 GTO 88 












APPLICATIONS 








HARD 


MONSENEGO- ERIC- T 34 
110$ we de le COAVEUTION 
FSo1is TARS I6G)4SSuuRe 


paris @ 14 Taille ve. 


Comment. pouvois adesse (a Rom MID r'impate  ? 


En efef, es MLDL  Auslaaliens er bn MEDEL vendus 


pu  Eteune Poupet (Qu'uU me téléphone s'il me &+) ds poseul 
d'un syblème d'odirssage Rom (les EPromS) auromehque . Elan 
chun 4 porte haute de Logement 4] : 


aladuneur 
æxi Voir 4: Foge 4. 

Ce #ytième et simpl mar pou Aouph pur an 

Vouo hs afuth pa  % Rom SAV? Et 
pente | En éfher, 


 bédoucslau “ 
bien 
Che Rom ve ge en page 4 (Vo AE) Vote MEDL ne 
ke. Lu. (Te ne HF qu'aux pages 4---F). 
Le holuon à vote pecoêrue. 


veu pouvez. vus L mek@ où. 


pouma donc pes 
Vour qui me Laes ; J'ai 
Votes 4%e ashène achuel de Aystème d'adamege: 


v. ! 
ga + 6% V232 Lay = 94C EC 
11. ë 


V+- 














à u 
U23 ‘a/ccupe d 4% RAM mt 


Von Aux, h'ouupe du &ckeun d'epaoms. 


ov 
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Une porte du plan d'£mpéaubebeni 





Vous aurez Éocars 


U23 (74c RS) vous 









mu 
cie 


LE 
2432 


Quand 


LR cz 
n'aurez qu'à 4 déssouder- 
& cuit Cmprime 





m2, 
2hé 















Main altexton : 
ent à houo méballsés. Ÿ er 
U23 4 

donc défi d ditoudu en 








composant Janus pompe preumeique 





& déssouder. 


Voici & cut 


Vue de dessus. 






4X100K-L 
Paltes à relever 


T4 fau rvetve a pau: 48;n; 14 
pis avoudu A FHCBS. Pain à Ll'ak d 4 pekf 
auBs ef d 4 aepcstauct dk  nappel d dk, webra 
le tour 2 qu l 


Æe citant ei- dstes. 
Vos eptoms peuvent s'aduma u'mpat où , Comme 
vole RAM. Vous pouves domc feyundu du panier vete 
EPRom SA | 
HAPPY  SoLDERING / 
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MONSENEGO:ERIC. T244 
OS rue de la CONVENTION 
FSois PARIS. (© Ys sy u ec. 


PARIS & LEuullt. 


Cher Seau DaneC. 


À de Oovue de ton  ekhch paru aus Micro Revue n°t2p?7e 
cmaœuaut La p @utaga LA Tu deus € neliog eupr'ique, 
de a  wehode" moune  cmdactar ” Cœur volé avec d 
pape lu. ). Mau Æ fait d'œuvur L machine ef d 
La nfeime par eutraiaun , pou e plu moldnh, 4 
deofuch'ne do +raures tés p dAhques PAT Se Hogiho - -_ 
Et c'e comme ce Qi que Lm voit ds 44 que *barlleut ?._ 
TE y à lbéaucup plis Aruph: 

Le wod& dépluteu. 

TE dplub Leo peht ed ne plauhgs. 


s ” 
Voici Aou achèma : 





vec see eo dux AéSéstauco aomt do VaW. 
Po AkA 

ep Quheh'ou ; 
Go 







Pehf plautaget heauche @ mode é aus Fr 
ha Lo pébs tout 4 , hou ak joue’ | 
Gros plautge : aber &o pile. euxfiohu 
LE modu& An 2 Mn, uvre Le modue LÀ 
mob Lo pets, er vw ! 

Je oui temoin à vob déporha pour hui, eau Prmshous 
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DIRLEX 


Ce lex de 531 octets fournit huit nouvelles fonctions 
programmables concernant l’utilisation des mémoires de masse, et permettant 
en particulier un accés plus aisé aux Informations contenues dans le 
DIRectory de ces mémoires de masse. 


par J.Y.HERVE CT 668) 


Ces nouvelles possibilites, jointes aux possibilités de MADLEX 
(cf.MR N°14,sept/oct 1986), devralent permettre un controle et une gestion 
encore plus facile des unités de cassettes et/ou de disquettes à partir du 
HP-75: 


Liste des fonctions fournies dans DIRLEX: 





-PCAT1 ":dv" Listage du catalogue en 1 colonne 

-PCAT2 Listage du catalogue en 2 colonne 

-REWIND Rembobinage d’une cassette 

-DSIZE € Tallle du directory en nombre de fichiers 


-NCAT C":av") Nombre de fichiers écrits (purgés inclus) 
-NFILE ("Nom:dv"> Numéro d’ordre du fichier "Nom 

-CATNS$ C":dv",N) Catalogue brut du Niéme fichier (purgés inclus) 
-CATFS ("Nom:dv") Catalogue brut du fichier "Nom" 





Impression du catalogue standard de la mémoire de masse ":dv" sur les 
appareils spécifiés par les déclarations PRINTER IS et DISPLAY IS. 

L'ensemble du catalogue est déroulé sans imposer la pression d’une 
touche de défilement; ce défilement peut toutefois être interrompu par la 
touche <ATTN>. 

La largeur d’impression (PWIDTH) est provisoirement définie à 40 
colonnes pendant l’execution de la fonction, puis remise à sa valeur 
initiale si aucune interruption n’a eu lieu. 

L’impression est effectuée sur 32 caractères. 





Identique à PCAT1, cette fonction permet l‘’impression du catalogue 
standard en deux colonnes. 

La largeur d’impression CPWIDTH) est provisoirement definie à 80 
colonnes. L’impression est effectuée sur 74 caractères, les deux colonnes 
de 32 caractères etant séparée par 10 espaces. 





Calcul le nombre maximum de fichiers que peut recevoir le directory de 
la mémoire de masse “:dv". Ce nombre correspond à celui qui a été utilisé 
par la fonction INITIALIZE, soit: N=IPC(I+7)/8)x8 
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Compte le nombre total de fichiers déjà écrits sur le directory de la 
mémoire de masse ":dv", y compris les fichiers purgés qui n‘’apparaissent 
pas au catalogue standard. 





NFILE C"Nom:dv") 





Donne le numero d’ordre du fichier "Nom" dans le directory de la 
mémoire de masse ":dv". Ge numero tient compte des fichiers purgés qui 
n’apparaissent pas au catalogue standard. La position physique du catalogue 
du fichier dans le directory peut être calculée de la façon suivante: 
Enregistrement R=IPCCN+15)/8) 

Octet O=MOD(N+15,8)x32 





Cette fonction fournit en retour ,une chaine de 32 caractères 
correspondant au catalogue brut complet du Ni®Me fichier du directory de la 
mémoire de masse “:dv". 

Le numero d’ordre du fichier a la même définition que celui calculé 
par la fonction NFILE. 

La stucture type d’un catalogue créé par une HP-75 est la suivante 
(voir les articles correspondants dans PPC-T et Micro-Revue): 


Octets 1 à 8 : Nom du fichier 
L 11 et 12 : Type de fichier 





# 15 et 16 Position sur le support 

M 19 et 20 Longueur en enregistrements 

u 21 à 26 Date de création 

# 29 à 32 : Mot de passe — 





CATFS$ ("No 





Cette fonction fournit en retour une chaine de 32 caractères 
correspondant au catalogue brut complet du fichier "Nom" dans le directory 
de ia mémoire de masse ":dv". 

La stucture du catalogue est la même que celle definie ci-dessus pour 
la fonction CATNS. 


MESSAGES D'ERREUR 





Les messages d’erreur émis par le lex sont conformes aux messages et 
aux conditions d’erreurs du systéme. ; 
En particulier: 


Erreur 57:"Bad transmission" pour toute erreur de transmission. 
Erreur 63:"Invalid filespec" si “Nom:dv" ou “:dv" n’est pas 
valide. 
Erreur 89:"Bad parameter" si la valeur de N dans CATNS est 
inférieure à 1 ou supérieure au nombre maximum de 
fichiers possibles dans le directory. 





PPC-T Nol4 Mai-Juin 1987 Page 105 








Soit une cassette initialisée par défaut et comportant les fichiers 
F1, F2, F3 et F4; le fichier F2 est purgé; les résultats obtenus en 
utilisant les fonctions de DIRLEX seront les suivants: 








PCAT1":M1" = catalogue normal de F1,F3 et F4 en 3 lignes 
PCAT2":M1" = idem en 2 lignes 

DSIZEC":M1") = 128 (valeur d’initialisation par défaut) 
NCATC":M1") = 4 

NFILEC"F3:M1") = 3 

CATNS(":M1*,2) = catalogue brut de F2 (fichier purgé) 
CATF$("FS:M1") = catalogue brut du fichier F3 























1 20 20 72 00 
2 OA 00 2E 00 1A 00 57 00 5A 00 6E 00 71 O0 CR 00 E1 00 04 01 93 
3  SS 01 86 O1 D3 O1 SE O0 SE 00 5E 00 SA 00 SA 00 SA 00 SA 00 2E 
4 SA OO FF FF 50 43 41 54 E1 SO 47 41 54 H2 52 45 57 49 4E C4 Si 
S 44 53 49 SA CS 4E 4% 41 D4 4€ 46 49 4C CS 43 41 54 4E A4 43 A7 
6 

7 

8 

7 








41 54 46 A4 FF FF 68 17 9E CE 8E 12 6C A9 B4 72 00 00 &F OA C4 

2 6C ES 9E A1 SF AB 28 FO 04 A1 SF AB SO SE EC CC 82 O6 E4 DD 

SF B2 CC 82 CE 98 EZ3 CE 61 46 5A 68 F8 40 CE 61 46 OF 6A FB E7 

S9 CE 61 46 RC 6D FB 32 CE 61 46 F7 6D F7 23 CE 61 46 BD 61 61 
10 F8 24 SE OA E5 A9 20 00 50 92 CE ES FD CE 61 46 26 70 5E 0A 40 
11 S CE 61 46 CD 6D F8 OA FO D6 CE 61 46 A2 6D CE 56 FE FO 6F 6E 
12 A1 CE 61 46 SA 68 F8 OC CE 61 46 OF 6A FB 68 CE 61 46 A2 6D 97 
153 9E 18 2D CE 61 46 SA 68 F8 19 CE 61 46 OF &A F8 52 CE 61 46 Co 
14 A2 6D SE 1E B5 OC 00 98 85 85 85 00 CE E4 FC 9E 18 2D CE 61 3C 
15 46 TA 68 F8 2D CE 61 46 OF 6A F8 2F CE 61 46 EC 6D F8 28 7E 67 
16 93 CE 61 46 F7 6D F7 OB 7E 89 CE 61 46 CD 6D F8 16 FO EE CE E9 
17 61 46 A2 6D SE ZE A1 CE E4 FC SE SE 06 E2 E2 CC 82 F9 OC CE 63 
18 A4 4C 39 CE A4 4C 59 CE A4 4C 3F CE 61 46 AD 6D 9E 18 2D CE 86 
19 77 4A F8 FB 6C 34 A3 60 OA ES CE 61 46 OF 6A FB DA 60 OA EZ SA 
20 CE 61 46 14 68 65 1E B5 38 00 99 67 87 98 87 SE 25 A1 CD OF 0F 
21 00 CE E4 FC FO C9 28 2E CE 88 SE 8E F4 E9 99 85 98 85 CB 00 9D 
22 02 B3 64 84 CE 61 46 ZA 68 F8 AC CE 61 46 OF 6A F8 9D 65 B1 FA 
23 64 84 67 92 58 1E ES OC 00 89 26 C1 F4 91 CE 61 46 AB 6B FB 96 
24 86 6E A9 20 00 CE 25 FC 64 2E A1 66 16 A1 CE 61 46 F3 6B F8 DO 
28 EA FO B1 18 2E 98 CE 77 44 F8 =9 6C 34 A3 60 OA ES CE 61 46 3zA 
26 OF 6A F8 D3 60 OA E3 CE 61 46 14 68 CE 61 46 C3 6E 58 1E A1 48 
2 CB 18 O0 6E A9 20 00 CE 25 FC 42 18 EO 16 
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HAGET INT frs: HTLI 15H 


BARGBERBEE 
GO LUS] La 





TE PAG REG PREF PREF Ii 


ÉSÉRSTeARS 
LAGSËSERE 
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PI 


“QUE J'AIME A FAIRE APPRENDRE CE NOMBRE UTILE AUX  SAGES,IHMORTEL 
ARCHIHEDE , ARTISTE INGENIEUR QUI DE TOM JUGEMENT PEUT PRISER LA VALEUR? POUR 
HOI,TON PROBLEME EUT DE PAREILS AVANTAGES." 
Ce quatrain est trés célèbre,puisque c'est un moyen mémotechnique de retenir la 
valeur du nombre PI.Le nombre de lettres des mots indique un chiffre-Wous 
avons grâce à celui ci les 31 premiers chiffres du nombre,et le programme 
ci aprés se propose (avec beaucoup de patience) d'atteindre les 180 decimales. 
Le nombre PI est trés ancien,il etait déjà utilisé par les HEBREUX et les 
BABYLONIENS.Sa valeur approximative apparaît dans des ecrits datant de 2000 ans 
AV-JC. 
C'est ADRIEN ROHAIN (XVI siècle) qui donne la notation connue H ,première lettre 
du mot GREC ‘circonférencez TEPLPEUL"- 
Le programme que vous trouverez ci-aprés n'est en fait que l'adaptation d'un 
programme pour HP 41CV de monsieur LABAT,paru dans un ancien numéro de SCIENCE 
AVIE. 
L'adaptation n'a pas été aisée,car certaines fonctions de la 41,utilisées dans 
le programme doivent être ecrites entièrement pour la HP15 C;par exemple: x<3%, 
ou HOD. 
Honsieur CONNAN Daniel (PPC-PARIS) et moi même,avons mis un certain temps pour 
mettre au point cette version.En effet ,la fonction HOD par exemple nous à 
posée des problèmes.Daniel CONNAN a ecrit la routine suivante: 

pour A HOD B, A ENTER" B puis: 


/ 
LAST X 
KES 
FRAC 
#* 
Mais cette routine n'est pas tout à fait valable,car il faudrait retrouver dans 
LAST X le nombre B,donc en toute rigueur il faudrait écrire: 
/ 
LAST X 
XY 
FRAC 
XOY 
* 


Cette version n'est pas encore opérationnelle pour notre programme. 
En effet aprés des heures de recherche,je me suis aperçu qu'il fallait rajouter 
en dernier lieu, l'instruction RND (arrondi a la mantisse). 

Pour quoi? Tout simplement parce qu'une partie decimale parasite subsistait 
aprés la multiplication.Le programme tournant en FIX f,calule quand même sur 





S'apré des hevres cle recherche: 
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13 décimales,et la multiplication au pas 88 par 10"S,rendait cette partie 
décimale parasite non négligeable,dans la sommation des termes. 


Je vous rappelle brièvement que le nombre IN peut être calculé sous la forme: 
M /2=  CkIJIRK2K3...(2k41)) 
aF1 a, (k/(2k#1))%a 4 


HODE D'EMPLOI : 


DEBUT 


faire 19 DIA(:); 


| 


afficher un nombre superieur à INT(N/LOG 2) 
pour H decimales; 


lancer le programme au label 4; 


attendre ou lire une revue ou aller faire les courses 
ou changer Ies couches de bébé etc ........3 


le programme est il fimi? — 


js 


A l'arrêt les 10 premiers chiffres sont à l'affichage, 
faire R/S pour avoir la suite. 


| 


FIN. 


REHARQUES: Si vous desirez moins de 180 decimales,vous pouvez charger les 
valeurs encadrées afin d'accélérer la procédure,tout en sachant 
qu'un registre contient 10 décimales. 

Par exemple pour en obtenir 30,remplacer les valeurs encadrées 
par 3 aux pas (10-11),et par 1,003 pour les autres. 


BON COURAGE... uen emmnnunnnns 





—— ) 
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FE 


Programme 






















oi LELR sTo+ (i) €Ex +|Lbla 
cLRE& RY RCE ti) 
Fix © DSE t Uk ao RIS 
@TO 4 ENTER ISGI 
of LEL © [4 GTOk 
A se 7 A3] GTo3 
- | INT 
x=o7 EEx 
&To 3 5 
PSE STO I É 
46 [1] R4 STo+ (i) 
or ? . 
Lee 
cæ x xay 
elitl 1 4 es 
45 ReL (i) a XVay À Hoo 
Frac e|R Fenc 
LV #lLbte * 
EEx . RD 
5 ZaY ISGI 
ol ReL (I) GTo4 
NT 
x"Y en x%Y 
RY 5 Aiv“4 
RY CPS = 
2 VoY * < 
uslRvy + É 
x HIENTER # La 
x 
+ r? ä 
INT 7 STO + 4 
Lstæ Li) X AY 
[FRAC ae Gong 
; ac 
2 
x 2 (i) dy ho 4|LbLS 
INT R# Fix 3 
rt Rè YXBE  |RrcLA 
: x Y 7. 
EEX w y 7 
5 Ê j R/s 
» ST x m 
INT ei nee = 
RAC 
koltstx x 4||4 
FRAC RND 2 
cex 4 STOI 
5 
* 
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PHILIPPE HEILBRONN 


6, RUE FURSTENBERG 
75006 PARIS 


PARIS, le 5 Juin 1987 


Monsieur Jean-Daniel DODIN, 


PPC-T/MICRO-REVUE 
77, rue du Cagire, 
31100 Toulouse 


Cher Monsieur, 


En relisant l'article “aCONST" paru dans PPC-T Numéro 
13 (mars-avril 1987), page 10 et suivantes, je m'aperçois de 
quelques erreurs: . 


En bas de La page 18, les lignes qui suivent n'ont pas 
été reproduites: 


— Conversion directe en un taux continu. 
1. Entrer le taux nominal 
2. Entrer @ (zéro), puis taper [f1[6] 


Exemple (Manuel HP-22, anglais, p.64) 
Celculer le taux actuariel continu correspondant à un taux 
nominal de 8,752. 


8,75 [A] 0 
Cf106] 





>Cen pause) NOM: 8,754 1 
LCONT: 9,142 1 


En outre, les lignes 161 à 320 incluse du progranne 
(qui constituent une page) n'ont pas été reproduites, ce qui 
rend le programme inutilisable. Je vous les envoie donc 
ci-dessous, pour rectification. En page 15,ligne 37, prière 
de lire à la place de 1294,74F le montant 1292,74F. 
En page 16,ligne 35, prière de lire à la place de 29,01% le 
pourcentage 29,69%. En page 19,ligne 16, prière de lire à 
le place de 373 la valeur 378 


Je me permets de vous adresser les codes-barre du 
progranne. Au cas où vous n'en feriez pas usage, 
pourriez-vous me les renvoyer dans l'enveloppe ci-jointe? 


Je vous saurais gré de bien vouloir m'adresser le 
No P21 du catalogue: “Operating system du HP-75"7 Ci-joint 
un chèque de 200 F à l'ordre de PPC-T. Merci de tout 
coeur. Je vous prie de croire, cher Monsieur, à mes 
sentiments très amicaux. 


Lu Héthros  frrecr 553) 
let 
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{selon HP) 


(test de 








Calcul pour un article 
numéro # de son "x" 
par rapport au total 

Fixe décimales pour le 

x montant du poste 

Montant du poste No # 

{x/a)+100 CXT) 


((x-a)/a)e100 € x) 


177 LASTX divisibilité) 257 LASTX 
178 FS? ©S 258 FIX 2 FIX modifiable 
179 Y4X CT ès 
18@ FC?C @S ER 
181 MOD / 
182 RTN E2 
183LB8L "G" xsa/100 (at de b) ST» Y 
184 LASTX IN 
185 x STO 
186 RTN ARCL X 
187LBL “i CHUX) Tres. a Affichage du 
188 F FIX de © à 9 AVIEW “tant pour cent’ (%X) 
Mark up X Cost RTN 
190 GTO 1@c Mark up ? Price 27OLBL “s#-" Opérations 
191 STO Y 271 STs Y arithmétiques 
192 STO Z 272 RON 
193 LASTX ÉEREL Fe" 
AR PACS ER 
195 ARCL X 275 RON 
188" 6 RIN 
197 ARCL _Y 277LBL “s+" 
198 FS7 55 278 STs Y 
199 AVIEW Affichage momentané RON 
200 “MUXC MUXP" Z8@LBL "+" 
201 AVIEW du message: 281 ST+ Y 
202 ST- Y "MUXC  MUXP* 282 RON 
203 ST- Z Z83 RTN 
204 / (Cicoût P:prix de vente) ZB84LBL “s* 
205 R4 285 STe Y 
206 ST/ Z 286 RDN 
207 EZ2 287 RT 
208 ST» Z 288LBL "/" 
209 STs T 2893 ST/ Y 
210 CLA 230 RDN 
211 ARCL Z MUXP est positif? 291 RTN 
212 R# insérer un espace Z32LBL @1 Faire (XEQ) @1 
213 X>0? 3 CF 29 pour entrer N articles 
214" " FIX @ dont on connait: 
215 ARCL X CLRG le cas échéant, Qté (ENTER) 
216 Rt Affichage simultané: NET Prix [R/S1 
217 AVIEW EMUXC  MUXP 1 PROMPT 
218 ADV % 
219 RIN Pour une valeur N, + 
220@LBL 1@c routine de calcul des S1ZE? Accorder le nombre de 
Lt ATX deux valeurs qui XOY registres utilisables 
222 .@1 l'encadrent X>Y? au nombre d'articles 
223 + PSIZE 
274 1/X MUXP MUXC 
225 LASTX Nt N N2 ” 
226 .02 MUXP  MUXC 305 STO 09 
228 1/X Si N est MUXP (marge b.) B ASTO L 
223 STO L NZ est MUXC (marque) ÆZREG IND X Placer le ler registre 
230 STO T 310 “(F),RS" statistique 
231 RON Si N est MUXC (marque) LEL 13 
AR N1 est MUXP (marge b.) E 
233 ARCL X PROMPT 
238 ©! LA 
235 ARCL Y SF 29 
238 “+ " FIX 2 
237 ARCL Z STs Y 
238 AVIEU { Ni N NZ ] RDN 
239 RTN ARCL L 
240LBL “;j" CHAT) Tea ARCL X 
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n ETS BIG 
de mn mt Se 
IST:TTLIELS i 
NS MAO CLEN UE EU ON AU, 
aCONST 
ROW 1: LINES 1-3 


ROW 2: LINES 3-3 
ROW 3: LINES 3-11 
ROW 4: LINES 11-19 
ROW 5: LINES 19-27 
RON 6: LINES 27-35 
ROW 7: LINES 35-42 
RON 8: LINES 43-50 
RON 9: LINES 51-58 
ROW 10: LINES 58-66 
LINES 66-72 


ROW 11: 


ROW 12: LINES 73-79 
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aCONST 


ROW 13: LINES 79-85 


RON 14: LINES 86-92 


ROW 15: LINES 93-99 


ROW 16: LINES 100-106 


ROW 17: LINES 106-113 


RON 18: LINES 113-122 


ROW 19: LINES 122-128 


ROW 20: LINES 129-136 


RON 21: LINES 137-141 


RON 22: LINES 141-149 


RON 23: LINES 150-156 


ROW 24: LINES 156-162 
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aCONST 


RON 25: LINES 163-168 


A 


RON 26: LINES 168-174 


LL 


ROW 27: LINES 174-178 
ROW 28: LINES 178-185 


LL 


RON 29: LINES 186-191 

LL 
ROW 30: LINES 192-198 

ROW 31: LINES 198-201 

LL 
RON 32: LINES 202-209 

ROW 33: LINES 209-217 

ROW 34: LINES 218-226 


RON 35: LINES 227-234 


ROW 36: LINES 234-240 
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aCONST 


ROW 37: 


RON 38: 


[ 


ROW 39; 


ROW 40: 


ROW 41: 


ROW 43: 


ROW 44; 


ROW 45: 


ROW 46: 


ROW 47: 


AOW 48: 





DLL 


LINES 240-246 


LINES 246-252 


LINES 252-256 


LINES 257-264 


LINES 265-270 


LINES 270-275 


LINES 276-280 


CAL, 


LINES 280-285 


LINES 286-293 





[ 
LINES 293-300 


LINES 301-308 


LINES 308-313 


Il 
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aCONST 


ROW 49: LINES 314-321 


AOW 50: LINES 322-331 


RON 51: LINES 331-336 


AROW 52: LINES 337-343 


ROW 53: LINES 343-350 


RON 54: LINES 351-357 


ROW 55: LINES 357-363 


RON 56: LINES 363-370 


ROW 57: LINES 370-377 


TT 


RON 58: LINES 378-381 


RON 59: LINES 381-387 


ROW 60: LINES 388-395 
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aCONST 


ROW 61: LINES 396-405 


ROW 62: LINES 406-415 


ROW 63: LINES 416-425 


ROW 64: LINES 425-430 


ROW 65: LINES 431-437 


RON 66: LINES 438-449 


ROW 67: LINES 450-456 


RON 68: LINES 456-461 


RON 69: LINES 462-465 








PPC-T No1l4 Mai-Juin 1987 Page 118 








MAGAZINE 
DU 
CLUB 
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ETITES 
ANNONCES 


Jacques Vaucelle, La Chasserie, 35133 ROMAGNE tient à votre disposition tout un catalogue de 
produits comme des modules XF+XM, des modules à mémoire constante, des convertisseurs HP-IL, des 


imprimantes CANON (X-07) et même des ordinateurs. Catalogue sur demande. 
Thierry Smotkowicz, 41 rue de Lorraine 31700 Blagnac, tel 61715435 Cherche HP-41. 


André Vialaron, 11 rue Darquié, 31000 Toulouse, échange un module time état neuf (1986) avec no- 
tice en français contre module HP-IL en état de marche. 


Renaud Boulet, 23 rue Turgot, 59000 Lille. Vends imprimante 82143 + papier, Sharp 1350 + module 
16Ko (extensible à 35,5ko, revues, imprimante Sharp, lecteur de micro-cassette Tandy, assembleur 


ASH1350, CAL, jeux. 


Jean-Michel Picavet 47 route d'Espagne La Pastourelle 31100 Toulouse, vends SOFTY II 1200F 
(programmeur d'Eprom), effaceur d'Eproms, environ 80 2732, 16 2716, 40 2708, cartes 8085 proces- 
seur et mémoire (de quoi faire un ordinateur pour un bricoleur). Prix à débattre. 


Philippe Cambguilhem, La thibaudière, 44118 la chevrolière, tel 40043549 vends HP-41CV avec 1XF, 
1 XM, lecteur de cartes, interface HP-IL, Thinkjet (2225B) récente, le tout 6000F. 


VILLATTE Alain 
Appt 13F 








MANGENEY Géud (TF4) 9 rue du Colonel Dominé 
ABçvue des Ses 75013 Paris 
€83c0 - SOUTZ 
Cherche medule PPE-ROM TEL: 45 95 07 80 
complet avec Sex Wugowme) 
gt A VENDRE 
Ne ue: 83-4c-69-54 É 
Prix à débalre 
MATERIEL ACHAT PRIX REDUCTION 
HP 7i 6 é, 2365 60% 
INTERFACE HPIL 62401A 3 85 717 45% 
; 10 s% 1046 45% 
19 86 699 30% 
11 84 479 45% 
11 84 605 45% 
u 12 86 1174 30% 
K PERSONNALISATIONS 
30 CARTES MAGN. 
iMPRIMANTE THINKJET 2225B 3 85 3228 45% 
RES ET IMPORTANTE DOCUMENTATION FOURNIES 
MATERIEL EN PARFAIT ETAT 
TRÈS PEU SERVI EN RAISON D'UN DOUBLE EMPLOI 





POUR L'ENSEMBLE, PRIX DEMANDE: 850 FKF. 
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EDITIONS DU CAGIRE 77 RUE DU CAGIRE 31100 TOULOUSE 
FRANCE TEL 61 44 03 06 AVRIL 87 


LIQUIDATION 
SOLDES AVANT FERMETURE DÉFINITIVE 


Le catalogue dont le résumé figure ci-dessous regroupe le solde des ouvrages 
précédemment disponible aux Editions du Cagire et au club PPC-T. Ces produits sont dispo- 
nibles dans la limite des stocks et, au plus tard, jusqu'au 31 Décembre 1987. Les prix in- 
diqués tiennent compte d'une remise de 30 à 60% sur le précédent prix catalogue. Vente di- 
recte par correspondance uniquement. Mode de paiement aux Editions du Cagire : Comptant 
par chèque ou mandat à l'ordre des Editions du Cagire, pour la France métropolitaine, 
compte tenu d'un forfait port et emballage de 20F. Les produits épuisés seront remboursés 
imnédiatement. Pour l'étranger, compte tenu des difficultés de remboursement, les expédi- 
tions seront faites CONTRE REMBOURSEMENT, le forfait port et emballage étant de 30F. Le 
matériel d'occasion peut être envoyé n'importe où. Catalogue détaillé 
gratuit sur demande. 


EL20. Bilingue français / anglais. "IND41" par Robert Pulluart. 100 pages format 16 x 24 à 
l'italienne. Prix 20F 

EL15. 109 programas para ordenadores personales Y calculadoras" Prix 20 F. 

(sans référence) pochettes A4 pour classer les programmes et leur documentation prix les 
19, 20F 

(sans référence) classeurs spéciaux pour les pochettes ci-dessus prix pièce 20 F. 

P13. En anglais. PPC Southwest Conference (Janvier 83), 48 pages 21 x 29,7, prix 20 F. 
P23. En anglais (et surtout en langage machine !). Liste source assembleur du FIG FORTH, 
prix (chaque) 20 F. Préciser votre micro-processeur à la commande. Disponible pour 
6800, 8080, 9900, Apple II, PDP11. 

P26. En anglais. Actes de la conférence du 10ème anniversaire de PPC USA, Juillet 84. Prix 
30 F. 

P31. En anglais. Dossier R. Nelson. 190 pages, prix 20 F. 

P34. En anglais. FIG Chapter News II. 80 pages, prix 20 F. 

P37. En anglais. FIG Chapter news I. 149 pages, prix 40 F. 

N8Al1. Les numéros 8 , 9, 19 et 11 de PPC-T, 64 pages chaque au format 15 x 22, prix pièce 
10 F. 

Tous les numéros de MICRO-REVUE, prix pièce 20F sont disponible tous les numéros de 1 à 15 
(détails de la table des matières sur demande). 

(ref. EL1) "ENTER" par Jean-Daniel Dodin. 122 pages format 16 x 24, ISBN 2-86811-002-9 
Prix 15 F. 

(xef. EL2) "Au fond de la HP-41" par Jean-Daniel Dodin. 122 pages format 16 x 24, ISBN 2- 
86811-001-0. Prix 70 F. 

(ref. EL3) “Het onderste uit de HP-41", door Jean-Daniel Dodin. ISBN 2-86811-009-6. Prix 
hors taxes 80 F. 

(non référencé) “Inside the HP-41" by Jean-Daniel Dodin. Prix hors taxes 70 F. 

(ref. EL4) “Autour de la boucle" par Janick Taillandier. La boucle HP-IL, procédures, con- 
trôleurs (HP-41 et HP-75), imprimantes. 165 pages format 16 x 24, ISBN 2-86811-000-2. Prix 
20 F. 

(ref. EL5) "La programmation synthétique de la HP-41", par W. C. Wickes traduction par Luc 
Mathieu. 98 pages format 16 x 24, ISBN 2-86811-004-5. Prix 70 F. 

(ref. EL6) "La programmation synthétique, c'est facile" par Keith Jarett, traduit de l'a- 
méricain par Gilles Barret. 128 pages format 16 x 24. Vendu avec carte des codes HP-41 
plastifiée en couleur. ISBN 2-86811-007-X. Prix 100 F. 

(ref. EL21) En français. "Le HP-71, c'est facile" par Joseph Horn, traduit de l'américain 
par Jean-Daniel Dodin. 199 pages format 16 x 24. Prix 100 F. 

(ref. EL16) "Manuel du tailleur et polisseur de verres d'optique" par Lucien Dodin. ISBN 
2-86811-003-7. Prix 100 F. 

(sans référence) carte des codes pour la HP-41 Prix 20F 


Matériel d'occasion en état de marche : 

interface video HP/IL 32 colonnes/16 lignes 82163 neuve (jamais servi) 1500F, autre usagée 
mais en parfait état 1000F permet d'utiliser un moniteur video avec une HP-41, un HP-75 ou 
un HP-71. 

lecteur d'Eprom pour HP-41 avec nombreux jeux d'EPROM 1000F, un outil de première qualité 
pour découvrir sa 41 et son langage machine 

module finance pour HP-41 (sans notice) 200F, module FORTH/translator HP-41 pour HP-71 
1000F 
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ORGANISATION 
DE PPC-T 





Cette page sera publiée dans chaque numéro de PPC-T. Seules les indications 
| répertoriées dans le dernier numéro du journal font foi. PPC-T étant une asso- 
ciation sans but lucratif, elle ne fait pas de bénéfice. Elle est administrée 


par des bénévoles et ses produits et services sont réservés à ses membres. 


ASSOCIATION PPC-T 
Association à buts non lucratifs (loi de 1901), PPC-T a suspendu l'inscrip- 
tion de nouveaux adhérents du ler Novembre 86 au 31 Aout 87. Si vous voulez nous 
rejoindre après cette date, envoyez-nous une enveloppe timbrée à votre adresse. 
RESPONSABLES DE PPC-T 
Président : Jean-Daniel Dodin (T1) 
Trésorier : Jean-François Sibille (T15) 


Secrétaire : Eric Sergent (T334) 


| ADRESSER TOUT LE COURRIER À PPC-T/MICRO-REVUE 77 RUE DU CAGIRE 31100 TOULOUSE. 


| TEL (A UTILISER AVEC MODERATION) 61 44 03 06 
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